是你的连接的数据源有问题:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db3.mdb;Persist Security Info=False;"
rs.Open strSQL, conn, adOpenStatic, adLockOptimistic
这个conn.Provider = "Microsoft.Jet.OLEDB.4.0",我想你的这个是不是3.51版本的,换成4.0的试试。