不是很明白你的意思
adoCGCX.RecordSource = "select * from purchase where "& _
Trim(Combo1.Text) & Trim(Combo2.Text) & " '" & Trim(Text1.Text) & _
"'" & " " & Trim(Combo3.Text) & " " & Trim(Combo4.Text) & _
Trim(Combo5.Text) & " '" & Trim(Text2.Text) & "' "
& 前后都要有空格,你的SQL语句好像写的有问题,我这个代码只是把VB的错误改正了
sql语句中的where后没有跟条件