SQL语句查询时出现的问题

Question

Private Sub Command5_Click()
Dim find As String
Dim rssearch As ADODB.Recordset
Dim con2 As ADODB.Connection
find = "select * from xinxi where 会员卡号='" & Text3.Text & "';"
Set con2 = New ADODB.Connection
con2.Provider = "Microsoft.Jet.OLEDB.4.0"
con2.Open "man.mdb"
Set rssearch = New ADODB.Recordset
rssearch.Open find, con2, adOpenDynamic
If rssearch.EOF And rssearch.BOF Then MsgBox "没有", vbOKOnly, "stop!!"
Text1.Text = rssearch!会员卡号
Text2.Text = rssearch!会员姓名
End Sub请问哪有问题啊

Answer 1

我知道是find = "select * from xinxi where 会员卡号='" & Text3.Text & "';"的数据类型不对，但会员卡号='" & Text3.Text & "';"怎么转换呢？

Answer 2

find 是VB的保留字，不能用于变量

Answer 3

find 不是vb的保留字，可用于变量，但不推荐使用，可用strFind比较合适