请各位大侠指教！

Question

Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Command1_Click()
Dim a As StringSet cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.Open "f:\ACCESS数据库\company.mdb"
cn.CursorLocation = adUseClienta = "select * from employee where empid='" & txtselect.Text & "';"Set rs = New ADODB.Recordset
rs.Open a, cn, adOpenDynamic  ---这句出错！set datagrid1.datasource=rs
End Sub
为什么我在文本框中输入ID后执行，告诉表达式中数据类型不匹配！

Answer 1

如果empID字段是数值型，赋值语句要相应改一改：
a = "select * from employee where empid=" & txtselect.Text