引用Microsoft OLE DB Service Component 1.0 Type Libary
Dim objDataLinks As DataLinks
Set objDataLinks = New DataLinks
'Set objDataLinks = CreateObject("DataLinks")
objDataLinks.hWnd = Me.hWnd
Dim obj As Object
Set obj = objDataLinks.PromptNew
If Not obj Is Nothing Then
Dim strConn As String
strConn = obj
MsgBox strConn
End If
Set objDataLinks = Nothing
posted on 2011-03-07 16:26
张志松 阅读(442)
评论(0) 编辑 收藏 引用 所属分类:
VB/VBS