VB查询问题

我用下拉列表+一个文本做了一个查询，现在出现了一个问题
我查询日期的时候没问题，但是要是查询其他的项比如姓名，性别的时候则出现实时错误 -2147217900（80040e14)
日期的语法错误在查询表达式 性别=男 中，程序代码如下

Private Sub Command1_Click()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=xjgl.mdb;"
Set adoPrimaryRS = New Recordset
a = Combo1.Text

If a = "出生日期" Then
adoPrimaryRS.Open "select * from xsda where " & a & " like '%" & b & "%'", db, adOpenStatic, adLockOptimistic
Else
b = Text1.Text
adoPrimaryRS.Open "select * from xsda where " & a & " = #" & b & "#", db, adOpenStatic, adLockOptimistic
End If
Set DataGrid1.DataSource = adoPrimaryRS

End Sub

vb查询问题 vb select查询问题 VB模糊查询问题 vb 日期查询问题 VB查询问题 vb数据库查询问题 VB查询数据库问题 vb+access查询问题 VB查询问题高手进 VB中的数据库查询问题