急求使用VB查询SQL并用DataGrid1显示查询结果的方法指点

Question

本人VB和SQL双菜鸟,想通过VB设定一个Text1TextBOX指定的条件,通过单击Command1按钮来查询SQL一个数据库表的信息,并在DataGrid1控件中显示查询的值.本人当前已经同时设定Adodc1和DataGrid1控件,并且通过两个控件的属性完成了与数据库相应表的成功连接,问题是怎么写代码查询我想在数据库中的信息?
网上找到的代码:Adodc1.RecordSource = "select * from A where B='" & Trim(Text1.Text) & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 '(A是数据库的表,B是表中的列或内容)
总是显示Adodc1.Refresh出错,实在找不到原因,望大神赐教,谢谢!

Answer 1

Adodc1.ConnectionString="Driver={SQL Server};Server=192.168.1.1;UID=sa;PWD=111"
Adodc1.RecordSource="select * from  A where B='"+Text1+"'" 
Adodc1.Refresh
Set DataFrid1.DataSource=Adodc1

你搞什么，这么简单的问题写这么多麻烦

追问

提示对象"Refresh"的方法"IAdodc"失败.怎么处理?谢谢

追答

因为这句话我写错了，不好意思，连数据库都没有

Adodc1.ConnectionString="Driver={SQL Server};Server=192.168.1.1;UID=sa;PWD=111"

改成：

Adodc1.ConnectionString="Driver={SQL Server};Server=192.168.1.1;UID=sa;PWD=111;DataBase=你的数据库名"