一个简单的数据库问题

Question

在执行
Set rs = db.OpenRecordset("select * from goods")
怎么提示run-time error '13'
        type mismatch
我很困惑，在线等答案

Answer 1

Option Explicit
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Private Sub Form_Load()
 Dim strconn As String
 strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False;Jet OLEDB:DataBase Password='123'"
 conn.CursorLocation = adUseClient
 conn.Open strconn
 
 If rs.State = 1 Then rs.Close
 rs.Open "select * from Phonebook", conn, 3, 3
 
 Set Me.DataGrid1.DataSource = rs
End Sub參考，因為我從來沒有用過你們那麼奇怪的寫法