vb连接access数据库1插入相应的包
代码语言：javascript复制Imports System.Data.OleDb2声明连接参数
代码语言：javascript复制 Dim OleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\db1.mdb"3建立连接
代码语言：javascript复制 OleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)
OleDbConnection1.Open()4执行语句查询
代码语言：javascript复制 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
cmd.Connection = OleDbConnection1
'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容
cmd.CommandText = "select * from student"
'执行OLEDB命令以ExecuteReader()方式，并返回一个OLEDBReader，赋值给dr
dr = cmd.ExecuteReader()
'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值
If dr.Read() Then
TextBox1.Text = dr(1)
End If
End Sub