如何使用数据库？
打开E:\Links.mdb
并查询SELECT User From Link WHERE State='Alive'
把查询结果赋给变量Result(已保证只会有一个结果)
[解决办法]
Dim StrCn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB_2005\WinLs\Winls\Bin\T.mdb" ';User ID=admin;Password=888"
Dim Cn As New OleDbConnection
Cn.ConnectionString = StrCn
Cn.Open()
MsgBox("测试连接成功。")
Dim Ds As New DataSet
Dim DA As New OleDbDataAdapter
Dim Cmd As OleDbCommand
Cmd = Cn.CreateCommand
Dim Sql0 As String
Sql0 = " Select * from T"
Cmd.CommandText = Sql0
DA.SelectCommand = Cmd
DA.Fill(Ds, "T")
DataGridView1.DataSource = Ds.Tables("T")
TextBox1.Text = Ds.Tables("T").Rows(1)(2) '第二行，第三列的数据
DataGridView1.Columns(0).Visible = False
