vb 连接 mysql 遇到问题

Question

已经安装了ODBC 5.1.
添加了一个DataGridView， 然后配置数据源，都能看到数据库里的表，然后选择表的时候，确定后出现错误提示框，说是“<`dbsupplier`..`freight`>
未能检索表或视图 `dbsupplier`..`freight` 的架构信息。”
dbsupplier是我的数据库名，freight是表名请哪位高手指点啊。
如果能抽时间给我写个连接数据库的原码更是感激不尽！

Answer 1

Public Function CreateConnection(ByVal pProvider As String, pDataSource As String) As ADODB.Connection
Dim oCn         As ADODB.Connection
    
    oCn.CursorLocation = adUseClient
    oCn.Open "PROVIDER=" & pProvider & "; DATA SOURCE=" & pDataSource & ";"
    oCn.Open "Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=***;DATABASE=****;PORT=3306"    'part of testing in local machine
    oCn.Open NMySqlCon  'nid added on 16-Jan-2009
    Set CreateConnection = oCnEnd Function

Answer 2

我已经在管理工具数据源里添加了数据源驱动程序，尝试了如下的连接代码但是却不行Private Sub 登录_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim strCn As String
        strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                 "SERVER=127.0.0.1;" & _
                 "DATABASE=dbsupplier;" & _
                 "UID=root;PWD=;" & _
                 "OPTION=3;stmt=SET NAMES GB2312"
        cn.Open(strCn)
    End Sub
未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 Supplier.exe 中。其他信息: [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序大虾请指点！

Answer 3

尝试一下：
Private Sub Form_Load()
    sDataPath = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                 "SERVER=127.0.0.1;" & _
                 "DATABASE=dbsupplier;" & _
                 "UID=root;PWD=;" & _
                 "OPTION=3;stmt=SET NAMES GB2312"
    sProvider = DATABASE_PROVIDER
    Set DCN = DATA.CreateConnection(sProvider, sDataPath)
End Sub
MODULES中添加：
Public Function CreateConnection(ByVal pProvider As String, pDataSource As String) As ADODb.Connection
Dim oCn         As ADODb.Connection
    Set oCn = New ADODb.Connection
    oCn.CursorLocation = adUseClient
    oCn.Open pDataSource
    Set CreateConnection = oCn
End Function

Answer 4

简单的定义呀：
Private sProvider                   As String
Private sDataPath                   As String
Private sDataSource                 As String

Answer 5

module里的那个adUseClient？

Answer 6

你的MYSQL是不是装错了？
adUseClient是启动MYSQL，值为3，不需要定义。
我连接MYSQL都不需要在管理工具数据源添加什么数据源，安装好MYSQL，那一段代码就可以直接连的上。
你能打的开MYSQL ADMINISTRATOR和MYSQL QUERY BROWSER吗？