搞定:引用Microsoft OLE DB Service Component 1.0 Type Library Option ExplicitPrivate Sub Command1_Click()
Dim objDataLink As New DataLinks Dim strConn As String strConn = objDataLink.PromptNew MsgBox "The connection string you created is:" & _ vbCrLf & strConnEnd Sub
Option ExplicitPrivate Sub Command1_Click()
Dim objDataLink As New DataLinks
Dim strConn As String strConn = objDataLink.PromptNew
MsgBox "The connection string you created is:" & _
vbCrLf & strConnEnd Sub