我的代码:
Public Sub OpenAstLink()
On Error GoTo Except
Dim ConnStr As String
ConnStr = "File Name=" & CurrentProject.Path & "\ast.udl;"
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Conn.Open ConnStr
End Sub
----------------------------
当然,使用CurrentProject.OpenConnection "rovider=SQLOLEDB.1ersist Security Info=False;User ID=sa;Initial Catalog=AST;Data Source=QSB"