Option ExplicitPrivate Sub Command1_Click()
Dim connAs Object
Dim rs As Recordset
Dim SQL As String
Dim dbfn As String
Dim pw As String
On Error GoTo ErrH
pw = "" '密码
dbfn = "d:\db1.mdb" '数据库文件名
Set conn = CreateObject("adodb.connection")
conn.Open "driver={micros...