'导入数据代码片断，下面有具体的函数实现
  If BCreateFeatDataset(strDatasetName) Then
    '                                    Screen.MousePointer = vbDefault
        If ConvertSHP2ARCSDE(Me.txtInpathF, strDatasetName) = True Then
            MsgBox "入库成功！！", vbInformation, "信息提示"
        Else
           MsgBox "入库成功！！", vbInformation, "信息提示"
        End If
    End If

详细代码请进入 http://www.gissky.net/blog/user1/1574/index.html
其中有BCreateFeatDataset和ConvertSHP2ARCSDE函数实现。