C# と VB.NET の質問掲示板

こんばんは。
MySQL5.1(ローカル)+VS.NET2003(VB)で開発しています。

サーバーエクスプローラでDB接続設定して
参照設定で
「Microsoft.Data.Odbc.dll」
を追加しました。

フォーム上にある
cmdLinkというボタンを押下してつなげたいのですが
エラー
---------------------------
video
---------------------------
ERROR [IM002] [Microsoft][ODBC Driver Manager] データ ソース名および指定された既定のドライバが見つかりません。
---------------------------
OK   
---------------------------

となり、接続できません。
 

Imports Microsoft.Data.Odbc
    
(略)
    Private Sub cmdLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLink.Click

    Try
            Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" + _
                                            "SERVER=localhost;" + _
                                            "DATABASE=hellodb;" + _
                                            "UID=root;" + _
                                            "PASSWORD=XXXX;" + _
                                            "OPTION=3"

            Dim MyConnection As New OdbcConnection(MyConString)
            MyConnection.Open()　　'この次でcatch exに飛ぶ


            Dim cmd As New Microsoft.Data.Odbc.OdbcCommand("select * from emp", MyConnection)

            Dim reader As Microsoft.Data.Odbc.OdbcDataReader
            reader = cmd.ExecuteReader()
            While reader.Read()
                Console.WriteLine(reader.GetString(0))
            End While
            reader.Close()

            MyConnection.Close()


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
  End sub

接続するにはどの点を修正すべきが
ご教授お願いします。

色々試行錯誤しましたが、
なんとかできました。

以下、方法です。

 サーバーエクスプローラでDB接続設定して
 参照設定で
 「Microsoft.Data.Odbc.dll」
 を追加しました。

empテーブル
+----------+--------------+------+-----+---------+-------+
| Field    | Type         | Null | Key | Default | Extra |
+----------+--------------+------+-----+---------+-------+
| NO       | int(11)      | NO   | PRI | NULL    |       |
| LANGUAGE | varchar(50)  | YES  |     | NULL    |       |
| MESSAGE  | varchar(100) | YES  |     | NULL    |       |
+----------+--------------+------+-----+---------+-------+

mysql> select * from emp;
+----+----------+------------------+
| NO | LANGUAGE | MESSAGE          |
+----+----------+------------------+
|  1 | 日本語   | 初めまして       |
|  2 | 英語     | Nice to meet you |
+----+----------+------------------+

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Dim con As MySqlConnection
        Dim cmd As MySqlCommand
        Dim dr As MySqlDataReader

        Dim connectionString As String
        Dim sqlStr As String
        Try
            '接続文字列 
            connectionString = "server=localhost;database=hellodb;user id=root;password=root"

            'コネクション生成 
            con = New MySqlConnection(connectionString)

            '接続 
            con.Open()

            'SQL文 
            sqlStr = "select * from emp"

            'MySQLCommand作成 
            cmd = New MySqlCommand(sqlStr, con)

            'SQL文実行 
            dr = cmd.ExecuteReader

            '結果を表示 
            With lstResult
                .Items.Clear()
                While dr.Read()
                    .Items.Add(CStr(dr("NO")) + "：" + dr("LANGUAGE") + "：" + dr("MESSAGE"))
                End While
            End With
            'クローズ 
            con.Close()
            MsgBox("正常に接続できました")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

で、リストボックス
lstResult
に実行結果が表示されます。

ありがとうございました。