'假设选中A客户 你的表名是 YourTable
'打开数据库
Dim strCon As String = "你的数据库连接字符串"
Dim myConn As Data.OleDb.OleDbConnection
myConn = New System.Data.OleDb.OleDbConnection()
myConn.ConnectionString = strCon
myConn.Open()
Dim sql As String = "select 身份证号……Email from YourTable where 客户名=‘" & A & "’ "
Dim da As New OleDbDataAdapter(sql, myConn)
Dim dt As New DataTable
da.fill(dt)
myConn.Close()
txt身份证号.text = dt.Rows(0)(0)
.....
.....
.....
txtEMAIL.text = dt.Rows(0)(8)
下面的例子跟你的情况一个道理。无非是看显示的东西经历什么样的操作得来。