真的没有分了只能给这么多了兄弟们

option explicit
dim cn
dim fs
dim sql as string
public function conn()
     set cn=createobject("adodb.connection")
             cn.open "provider=microsoft.jet.oledb.4.0;data source="& _
                  app.path+"\公安局"+"system.mdb"
      set fs=createobject("adodb.recordset")
end function
'***************************************************************
Private Sub Command1_Click()
    
    Dim keyword As String
    Dim value1 As String
           keyword = Combo1.List(Combo1.ListIndex)
           value1 = Trim(Text1.Text)
           Call conn           '调用连接数据库函数
           sql = "select * from 人员资料表 where" & keyword & "=" & "'& value1 & " '"
                fs.Open sql, cn
            If fs.EOF And fs.bof Then
                    MsgBox "对不起，没有查找到该条记录！", vbOKOnly + vbInformation, "系统消息"
                      Combo1.Text = ""
                    Text1.Text = ""
                    Exit Sub
            Else
                    Set DataGrid1.DataSource = fs       '将查询的记录显示出来
            End If
            Set cn = Nothing
  
End Sub
这程序代码在哪错了系统老是提示sql语法错误望大家帮忙解决一下