为什么DataGrid1中不能显示连接的数据库中的数据呢？请好心人帮忙看看！！！

Question

Private Sub Form_Load()
    '初始化查询条件CboQuery
    
    CboQuery.AddItem ("DID")
    CboQuery.AddItem ("PID")
    CboQuery.AddItem ("SIID")
    CboQuery.AddItem ("SNum")
    CboQuery.ListIndex = 0       '默认查询条件为所属部门ID
      Call LoadData
End SubPrivate Sub LoadData()
'装载数据
    Dim colName As String                          '保存所选择的查询条件
    Dim colValue As String                          '保存所要查询的具体值
    Dim strWhere As String
    '得到查询条件
    colName = Trim(CboQuery.Text)                        '取出条件的值
    colValue = Trim(txtQuery.Text)                       '取出所要查询的值
    '构建条件
  
    strWhere = "where" & colName & " like '% " & colValue & "% ' "
       
     Set rs = Nothing
     
    '查询员工基本信息
    SQL = "select * form SI  " & strWhere & "  order by SID"
    Call SelectSQL(SQL, msg)
    Set rs = SelectSQL(SQL, msg)
    Set Me.DataGrid1.DataSource = rs            '在DataGrid中显示查询的结果
    DataGrid1.Refresh
    If rs.RecordCount = 0 Then                     '如果不存在记录
        '编辑控件可用性
        CmdAdd.Enabled = True
        CmdModify.Enabled = False
        CmdDelete.Enabled = False
        '移动控件不可用
        For Index = 0 To 3
            Command(Index).Enabled = False
        Next Index
    Else
        '编辑控件可用性
        CmdAdd.Enabled = True
        CmdModify.Enabled = True
        CmdDelete.Enabled = True
        '移动控件可用
        For Index = 0 To 3
             Command(Index).Enabled = True
        Next Index
    End If
End Sub
就是进去没显示的···

Answer 1

打印一下，看看SQL对不对
下边这句where后就少了空格strWhere = "where" & colName & " like '% " & colValue & "% ' "

Answer 2

调试的时候 把鼠标放在你的 strwhere 上面 点击放大镜 把SQL语句 复制出来 查看下

Answer 3

多半就是你的这句where后面没有空格
strWhere = "where" & colName & " like '% " & colValue & "% ' "
如果项目中SQL语句都是这样灵活的组成的话，调试的时候多看看得到的SQL语句对不对吧，有时候就是一个空格或是一个单引号的问题呢