实在找不出原因，到底错在哪里呢？（一个adodc1,DataGrid1和一个text)

我在窗体上加了一个adodc1,DataGrid1和一个text1。
adodc1:select 编号,性别,婚姻状况,婚姻状况发生日期,生育节育状态,生育节育状态发生日期,子女属性1,子女属性2,子女性别,子女出生日期 from 子女信息
DataGrid1与adodc1绑定我想以编号进行查询，我是这样写的：
    Dim a As String
    a = Trim(Text1.Text)
     Adodc1RecordSource = "select 编号,性别,婚姻状况,子女性别,子女出生日期 from 子女信息 where 编号 =' " & a & "% '"
    Adodc1Recordset.Update
    Adodc1Refresh
无论我在text的text中输入什么总是提示“EOF 中有一个是“真”，或着当前的记录已被删除，所许的操作要求一个当前的记录。”的错误提示。可是：如果我将查询的变量Text1.Text换成数字时，既： 
Adodc1RecordSource = "select 编号,性别,婚姻状况,子女性别,子女出生日期 from 子女信息 where 编号='2'
在DataGrid1中显示的数据就完全正常。
如果我在text1的text中也输入2，仍然出现提示：“EOF 中有一个是“真”，或着当前的记录已被删除，所许的操作要求一个当前的记录。”我用的变量怎么就不好用呢，这到底是什么原因，我现在因此头都晕了，就是找不出原因。请朋友帮忙啊。