Dim strSQL1 = "select id from userlist where password=1234"
创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站设计、成都网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的昂昂溪网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
Cmd.CommandText = strSQL1
dim MyReader As SqlDataReader = Cmd.ExecuteReader
If MyReader.HasRows Then
While MyReader.Read
TextBox1.Text=MyReader("ID")
End While
End If
MyReader.Close()
string sql = "select * from 表";
SqlDataAdapter sqladapter = new SqlDataAdapter(sql, con);
DataSet ds = new DataSet();
sqladapter.Fill(ds, "表");
GridView1.DataSource = ds;
GridView1.DataBind();
动态生成语句查询sql数据库内所有表，通常用 语句组合链接串。
如果是已经明确的表，可以用 参数方式变更。
如果是针对不同的表，自己拼合sql语句吧。
VB.net数据库连接的语句，网上太多了。
我是这样做的:
Dim ConnectionString As String = _
"Provider=Microsoft.Jet.OleDb.4.0;_DatacSource = App.Path+\temp.mdb"
Dim myconn As OleDbConnection = New OleDbConnection()
myconn.ConnectionString = ConnectionString
Dim strcom As String = "select * form 通讯录"
OleDbConnection1.Open()
Dim strdele As String="DELTEL 表 WHERE 姓名='MMM'"
Dim mycommand As OleDbCommand = New OleDbCommand(strdele, myconn)
mycommand.ExecuteNonQuery() '从数据库中删除记录
DataSet1.Tables("通讯录").Rows(mybind.Position).Delete() '逻辑删除
DataSet1.Tables("通讯录").AcceptChanges()
OleDbConnection1.Close()
1、首先打开Visual Studio 2008代码窗口，添加引用。
2、输入以下代码：Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。
4、如果SQL 数据库就在本机，则用以下代码连接。
5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。
