where语句的有关问题 求指导~~~~~~~

有两个窗体 f1 f2
f1里有一个combo1和text1 f2里有一个DataGrid1
现在我想查找combo1的字段中与text1的值相等的记录 并在DataGrid1显示出来
但是DataGrid1中显示没有记录 而且程序也没报错 
所以求各位高手指导一下啊~~~~~~~~~~我的脑子不够用了~~~~~~~~~

我是这样写的 但感觉很别扭 肯定什么地方不对 就是where那个地方

Adodc1.RecordSource = "select * from tb1 where '" & Trim(Combo1.Text) & "'='" & Trim(Text1.Text) & "'"
Adodc1.Refresh

Set f2.DataGrid1.DataSource = f1.Adodc1
f2.DataGrid1.Refresh

Adodc1.RecordSource = "select * from tb1 where " & Trim(Combo1.Text) & "='" & Trim(Text1.Text) & "'"

VB code

Adodc1.RecordSource = "select * from tb1 where " & Trim(Combo1.Text) & "='" & Trim(Text1.Text) & "'"
Adodc1.Refresh

Set f2.DataGrid1.DataSource = f1.Adodc1
f2.DataGrid1.Refresh