Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sqlConnect As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\轨道车模拟驾驶系统.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True" '“server=计算机名;database=数据库名;uid=登录数据库用户名;pwd=登录数据库密码”
sqlConnection1 = New
System.Data.SqlClient.SqlConnection(sqlConnect)
sqlConnection1.Open()
Dim adapt As SqlDataAdapter
Dim cmdtext As String = "select * from entry where 用户名 =‘" & Form1.TextBox1.Text & "’"
adapt = New SqlDataAdapter(cmdtext, sqlConnection1)
Dim userds As New DataSet()
adapt.Fill(userds, "usertable")
sqlConnection1.Close()
TextBox1.DataBindings.Add(New Binding("text", userds, "usertable.姓名"))
TextBox2.DataBindings.Add(New Binding("text", userds, "usertable.用户名"))
TextBox3.DataBindings.Add(New Binding("text", userds, "usertable.密码"))
TextBox4.DataBindings.Add(New Binding("text", userds, "usertable.权限"))
End Sub

根本看不清图片代码