vb.net远程连接mysql数据库的问题

Dim ADOrs AS RecordsetADOrs.Open "select * from {你的表名} where name='"+text1+"'" '把textbox1作为检索的对象即用来输入查找的条件 if NOT ADOrs.EOF then '开始查找(用了取么操作没有找到到指针即找到了记录)那么执行下面的语句 ADOrs("name")=trim(text1) '把字段name显示给textbox1 ADOrs("year")=trim(text2） '把字段year显示给textbox2 else msgbox "数据库没有检索到你要搜索的记录！"，vbokonly,"提示" end if ADOrs.close '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。

Dim cn As New ADODB.Connection '创建链接对象
Dim rs As New ADODB.Recordset '创建指针集
Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\lbj\Desktop\test.mdb" '连接字符串
End SubPrivate Sub Form_Unload(Cancel As Integer)
cn.Close '关闭数据库对象
End SubPrivate Sub Text1_Change()
c = "select year from info where name='" & Text1.Text & "'" '查询语句
rs.Open c, cn, 3, 3 '查询
Text2.Text = rs.Fields(0) '赋值过去
rs.Close '关闭对象
End Sub
实时查询 只有输入到相应的名字才会显示年龄