求教VB中ADO和DATAGRID

Question

做一VB的工具，打开窗体的时候就已经把ADO中的表INFO的数据显示在DataGrid里，条件查询后把结果显示在DataGrid中，按照书上步骤写的，但是总提示FROM语句错误，ADO的refresh出错，高手指点下丫
Private Sub btnSearchCategory_Click()
    Dim strSql As String
    'cn.Provider = "microsoft.jet.oledb.4.0"
    'cn.ConnectionString = itemFilePath.Text
    If cn.State <> adStateClosed Then cn.Close
    cn.Open    strSql = "select * from INFO where num = " & "'" & cmbEquipCategory.Text & "'" 
    Adodc1.RecordSource = strSql
    Adodc1.Refresh
    End If
    cn.Close
End Sub

Answer 1

Adodc1.RecordSource = "select * from INFO where num =" & chr(39) & cmbEquipCategory.Text & chr(39)
Set DataGrid1.DataSource = Adodc1 

Answer 2

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 你的库名 & ";Persist Security Info=False"

Answer 3

DataGrid1.DataSource = Adodc1 和 Adodc1.ConnectionString 已经在属性里面绑定好了的，应该不是这个问题

Answer 4

书上介绍查询一个记录就下面四条就够了 
    Dim strSql As String 
 
    strSql = "select * from INFO where num = " & "'" & cmbEquipCategory.Text & "'"  
    Adodc1.RecordSource = strSql 
    Adodc1.Refresh