VB访问MySQL数据库的实现与源码

在VB中可以使用ADO数据控件实现对MySQL数据库的访问，但ADO控件不能直接访问MySQL，需要安装MyODBC(可以在网上下载)并在ODBC中注册一个用户DSN(控制面板/管理工具/数据源)，这样就能使VB顺利连接到MySQL数据库了。连接上了还需要执行SQL查询操作并能取得查询结果，可以使用ADODB的Command对象和RecordSet对像。实现VB对MySQL的访问的具体代码如下：
Private Sub connect_Click()
    Dim conn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset
    'connect to MySQL server using MySQL ODBC 3.51 Driver
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
    "SERVER=localhost;" & _
    "DATABASE=bs;" & _
    "UID=root;PWD=;OPTION=3"
    conn.Open
    cmd.CommandText = "select * from student"
    cmd.ActiveConnection = conn
    rs.CursorLocation = adUseClient
    rs.Open cmd, , adOpenStatic, adLockBa