vb6-用mysql连接到远程服务器

Question

我有一个VB6项目，其中将数据添加到数据库并稍后查询。我有一个方法updateDB用于使用字段更新数据库：

Function UpdateDB()
Dim DBCon As ADODB.Connection
Dim DBCmd As ADODB.Command
Dim dbrecset As ADODB.Recordset


Set DBCon = New ADODB.Connection
DBCon.CursorLocation = adUseClient
DBCon.ConnectionString = "Driver = {MySQL ODBC 3.51 Driver}; Server =myHosting; Port = 3306;Database=myDB;UID=myUID;PWD=12345;Option=16427;"

DBCon.Open
Set dbrecset = New ADODB.Recordset
With DBCmd
.ActiveConnection = DBCon
.CommandText = "UPDATE vbtest SET Name = '" & Text1.Text & "'," _
& "Serial = '" & Text2.Text & "'," _
& "WHERE Key = '" & Text3.Text & "' AND Name IS NULL"
.CommandType = adCmdText
End With

With dbrecset
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open DBCmd
End With

dbrecset.Close
DBCon.Close

End Function

此函数在运行时出现以下错误。

编辑：我使用ODBC驱动程序的版本3.51 / 5.1 / 5.2尝试过它

我做错了什么？被困了好几天了。请帮忙