一个小问题？

Question

我象这样联的，报类型不匹配。是什么原因哟！
Dim DB As Database
Dim Rs1 As RecordsetSet DB = OpenDatabase(App.Path + "\db.mdb")
Set Rs1 = DB.OpenRecordset("select product.name from product", dbOpenDynaset)

Answer 1

Dim Conn As New ADODB.Connection
Conn.Open strCon   'strCon是你自己的连接字符串
Conn.CursorLocation = adUseClientDim rs As New ADODB.Recordset
rs.Open "select * from 表名称", Conn, adOpenDynamic, adLockOptimistic

Answer 2

Set DB = OpenDatabase(App.Path & "\db.mdb")
Set Rs1 = DB.OpenRecordset("select product.name from product)
应该是这么写吧