在VBA中写入MySQL，你需要使用一个ADO连接对象和一个SQL语句来执行插入操作。以下是一个简单的示例代码：

首先，你需要在VBA中添加对ADO库的引用。在VBA编辑器中依次点击"工具" -> "引用"，然后勾选"Microsoft ActiveX Data Objects x.x Library"（其中x.x表示版本号）。

然后，你需要创建一个ADO连接对象，连接到你的MySQL数据库。你可以使用连接字符串指定数据库服务器的地址、端口、用户名和密码等信息。以下是一个示例：

```vb

Dim conn As New ADODB.Connection

Dim connStr As String

connStr = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=127.0.0.1;PORT=3306;DATABASE=mydatabase;USER=myuser;PASSWORD=mypassword;"

conn.Open connStr

接下来，你可以编写SQL语句来执行插入操作。以下是一个示例：

```vb

Dim sql As String

sql = "INSERT INTO mytable (column1, column2) VALUES ('value1', 'value2')"

将上面的代码中的mydatabase替换为你的数据库名称，myuser和mypassword分别替换为你的用户名和密码。mytable是你要插入数据的表名，column1和column2是表中的列名，'value1'和'value2'是要插入的值。

最后，你可以使用连接对象的Execute方法来执行SQL语句：

```vb

conn.Execute sql

这样就可以将数据插入到MySQL数据库中了。

完成插入操作后，记得要关闭连接对象：

```vb

conn.Close

以上是一个简单的示例，你可以根据你的实际情况定制化代码。另外，当插入数据时，要确保数据类型与目标表中列的数据类型相匹配，否则可能会导致数据插入错误或异常。

希望以上信息对你有所帮助。如果有任何疑问，请随时提问。