一个关于vb和access的问题

Question

下面是我编写的程序，要将access数据库的内容显示出来，但是系统要么不显示结果，要不就说有一个未定义，可不可以帮我看一下到底那里出错了
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim sql As String
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=f:\贸易系统.mdb"
Set rst = New Recordset
If Check1.Value = vbChecked Then
sql = "select * from 客户表 where CustomerCode =" & Text1.Text & ""
End If
If Check2.Value = vbChecked Then
sql = "select * from 客户表 where Contact =" & Text2.Text & ""
End If
If Check3.Value = vbChecked Then
sql = "select * from 客户表 where CustomerName =" & Text3.Text & ""
End If
rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rst
End Sub

Answer 1

rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
尤其是这一句话

Answer 2

改为sql = "select * from  客户表 where ,,,,, ='" & Text1.Text & "'"

Answer 3

字符串类型的查询需要在变量前后加"'"字符
日期型的则要加"#"符号。
你的语句可以改成
sql = "select * from 客户表 where CustomerCode ='" & Text1.Text & "'"