用ADO操作MYSQL数据库

用ADO操作MYSQL数据库 VBE中请确定引用 microsoft activeX data objects xx 库连接及更新MYSQL数据库数据
代码如下: Sub updt() Dim strconnt As String strconnt = "" Set connt = New ADODB.Connection Dim sevip, Db, user, pwd As String '设服务器地址、所连数据，及登录用户密码 sevip = "localhost" '"192.168.*.*" Db = "samp_db" user = "root" pwd = "6901205" strconnt = "DRIVER={MySql ODBC 3.51 Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" ' connt.ConnectionString = strconnt connt.Open ssql = "UPDATE student SET student.name= 'kookboy' where student.name = 'kook'" connt.Execute ssql MsgBox "成功更新记录！" connt.Close Set connt = Nothing End Sub 按F5执行,执行前中后 界面如下
vba与mysql数据库的连接
Sub connect_数据库()
  Dim strconnt As String
  strconnt = ""
  Set connt = New ADODB.Connection
  Dim rs As Object
  Set rs = New ADODB.Recordset
  Dim sevip, Db, user, pwd As String
  '设服务器地址、所连数据，及登录用户密码
  sevip = "192.168.*.*"
  Db = "***"
  user = "***"
  pwd = "****"
  strconnt = "DRIVER={MySql ODBC 3.51 Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" '
  connt.ConnectionString = strconnt
  connt.Open
End Sub