这段程序有什么错误

[cnhawk386]

Private Sub Command1_Click()
Dim db As Database
Dim tb As Recordset
Set db = OpenDatabase("D:\database\product.mdb")
strsql = "select * from product"
Set tb = db.OpenRecordset(strsql)
错误提示：类型不匹配,错误所在行为最后一行

[pubutan]

先搞个query

[damofengbo]

Dim tb As new Recordset

[tztz520]

语句没问题的，
你的strsql还没定义，
dim strsql as string

[jackcaixia]

你首先定义"STRSQL"

Private Sub Command1_Click()
DIM SRTSQL AS STRING
Dim db As Database
Dim tb As Recordset
Set db = OpenDatabase("D:\database\product.mdb")
strsql = "select * from product"
Set tb = db.OpenRecordset(strsql)
这样就没问题了~

[cnhawk386]

还是有问题