用VB ADO控件 DATA ADODC 问题

分不多 谢谢
我用VB 的ADODC 控件 然后加TextBox 控件来显示连接的数据库 merton.mdb 中的表merton （merton表包括工号、姓名、部门 等基本信息）
点击窗体查询按钮里面编写代码如下：
Dim sql As String
Dim s As String
s = Text1.Text
sql = "select *from merton where 工号=s"       ‘merton是表 工号字段 类型STRING
frm人事窗口.Adodc1.RecordSource = sql      ‘有专门的查询窗口
在查询窗体输入工号后点查询
为什么数据显示不到frm人事窗口 
请帮我看看   --------------------编程问答-------------------- s是变量，应该
sql = "select *from merton where 工号='"+ s "'"

补充：.NET技术 ,  VB.NET