Dim conn As New adodb.Connection
Dim rst_Send As New adodb.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
"\data.mdb;Persist Security Info=False;Mode=ReadWrite;Jet OLEDB:Database Password=WCX010106"
rst_Send.Open "select * from 派发单", conn, adOpenKeyset, adLockOptimistic
你只要把app.path & "\data.mdb"改成你需要访问的数据库就行了
当然你需要先引用ADO才行