vb点虐 远程连接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 '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。

青田网站制作公司哪家好，找成都创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站开发等网站项目制作，到程序开发，运营维护。成都创新互联成立与2013年到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。

求一个vb点虐 链接mysql数据库的增删改查程序，求速度。。。

首先你本地要安装MySQL Connector Net

工程引用mysql.data

连接数据库：

 Imports MySql.Data

Imports MySql.Data.MySqlClient

‘连接字符串dbServerName 是ip,下面的英文应该懂得吧。

dim sA as string

sA = "server=" Me.dbServerName "; port=3306; database=" Me.dbDataBaseName _

                  "; user id=" Me.dbUserName "; password=" Me.dbPassWord "; "

dim mvardbConnectionMysql As MySqlConnection

          With mvardbConnectionMysql

                .ConnectionString = sA

              .Open()

          End With

4. 读取数据

dim xx As MySqlDataReader

Dim oC As MySqlCommand = New MySqlCommand(sSql, Me.mvardbConnectionMysql)

oC.CommandType = CommandType.Text

xx= oC.ExecuteReader()

if xx.HasRows

do while xx.read()   ’一次读取一行

msgbox xx.item(2)   '取出当前行的第三个字段的值显示。

loop

end if

5. 写入数据

  Dim oT As MySqlTransaction = Me.mvardbConnectionMysql.BeginTransaction()

  Try

      Dim oC As MySqlCommand

   '下面的commandtext是执行的更新语句，例如Insert into 语句。

      oC = New MySqlCommand(CommandText, Me.mvardbConnectionMysql, oT)

      oC.CommandType = CommandType.Text

      oC.ExecuteNonQuery()

      oT.Commit()

      oC = Nothing

      oT = Nothing

  Catch oe As Exception

      oT.Rollback()

  End Try

我想把VB.NET连接MYSQL数据库，代码怎么写啊？

和SQL数据库差不多的，下面是我用vb6.0连接本地mysql数据库的连接字符串

"driver={MySQL ODBC 3.51 Driver};server=127.0.0.1;database=mysql;uid=root;pwd=sasa"