如何在textbox控件中输入多个单号实现查询多条记录?????

小弟设置了一个窗体，在窗体上放了一个textbox控件做输入查询单号用，放了一个adodc连接数据库，再放一个datagrid用来绑定显示adodc中连接的表数据,最后放一个command做查询用
现在我有两个问题想请教各位高手:
1.在程序刚运行时，dategrid能不能不显示adodc所连接的数据，当在textbox中输入单号，dategrid中才显示textbox所输入单号对应的数据。
2.在textbox里一次输入多个单号，怎么才可以一次显示多个单号所对应的记录?我现在双击command 控件里的代码是这样的：
   Adodc1.RecordSource = "db_postprint where ydbh = '" + Text1 + "' "
   Adodc1.Refresh

百般感谢!!! --------------------编程问答-------------------- Adodc1
很久不用了，看见就烦躁，这个烂东西，专门给懒汉用的

建议你去用ADO对象吧，代码漂亮不说，至少你贴出来，会多些人给你出主意 --------------------编程问答--------------------
TextBox輸入的時候，用"," 來分隔

Adodc1設置成SQL命令方式，
Dim s as string
s=replace( text1.text, ",", "','")

"SELECT * FROM db_postprint WHERE ydbh IN('" & s &  "') " --------------------编程问答-------------------- 谢谢楼上两位哥的帮助,现在问题是,我用楼上朋友的代码,我输入多个单号时,还是不能查询多个单号出来,只查到一个单号....我的代码是这样的:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim DbStr As String
Dim s As String
cn.ConnectionString = "driver={SQL Server};server=CCXL;uid=sa;pwd=;database=dadian"
cn.Open
s = Replace(Text1.Text, ",", "")
DbStr = "Select * from db_postprint where ydbh in ('" + s + "')"
rs.Open DbStr, cn, 1, 1

输入查询时,譬如查单号25896314,58745221,895112363  它只能查出25896314....这是为什么了,哪位大哥能指点一下. --------------------编程问答-------------------- 怎么没有人回啊....我弄了两天了..实在搞不懂怎么写...哪位高手能帮帮忙啊... --------------------编程问答-------------------- 这句 
s = Replace(Text1.Text, ",", "") 

改成

s = Replace(text1.text, ",", "','")

注意 Text1 中用英文逗号分隔。 --------------------编程问答-------------------- 谢谢楼上大哥的指点,我的问题现在解决了......谢谢帮助过我的每位大哥.....
到此结贴.我应该怎么样散分呢? --------------------编程问答-------------------- 提示信息
 
分数总和与帖子给分不相符

补充：VB ,  数据库(包含打印，安装，报表)