Imports MySql.Data.MySqlClient Public Class Form1 Dim MysqlConn As MySqlConnection Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MysqlConn = New MySqlConnection MysqlConn.ConnectionString = "server=localhost;useid=root;password=123456;database=testTJ_data" Try MysqlConn.Open() MessageBox.Show("Connection Successful") MysqlConn.Close() Catch ex As Exception MessageBox.Show(ex.Message) Finally MysqlConn.Dispose() End Try End Sub

这段代码是用来连接到 MySQL 数据库的。

首先，使用 `Imports MySql.Data.MySqlClient` 导入 MySQL 数据库所需的命名空间。

然后，在 `Form1` 类中定义一个 `MysqlConn` 变量，用于存储数据库连接对象。

接着，在 `Button1_Click` 事件处理程序中，创建新的 `MySqlConnection` 对象，并设置连接字符串为 `server=localhost;useid=root;password=123456;database=testTJ_data`。这个字符串中包含了连接到本地 MySQL 服务器，使用用户名为 root，密码为 123456，连接到名为 testTJ_data 的数据库。

然后，使用 `Try...Catch...Finally` 语句块来尝试连接到数据库。如果连接成功，会弹出一个消息框显示“Connection Successful”；如果连接失败，则会弹出一个消息框显示错误信息。最后，无论连接是否成功，都会释放 `MysqlConn` 对象。

需要注意的是，这段代码只是连接到数据库的代码，如果需要对数据库进行查询、插入、更新、删除等操作，还需要编写相应的 SQL 语句并执行。