Author:水如烟
项目要求：
Option Strict Off
并引用
Microsoft OLE DB Service Component 1.0 Type Library
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DataLink As New MSDASC.DataLinks
Dim o As Object
o = DataLink.PromptNew
MsgBox(o.ConnectionString)
End Sub
项目要求：
Option Strict Off
并引用
Microsoft OLE DB Service Component 1.0 Type Library
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DataLink As New MSDASC.DataLinks Dim o As Object o = DataLink.PromptNew MsgBox(o.ConnectionString) End Sub