ADODB MySQL ODBC на Visual Basic помогите кто чем сможет - VB

Формулировка задачи:

Подскажите как в visual basic 2005 отправить запрос в mysql и извлечь информацию из нужной ячейки в таблице?
Cnn = New ADODB.Connection
Rec = New ADODB.Recordset
Cmd = New ADODB.Command
strConn = "DRIVER=MySQL ODBC 5.1 Driver;SERVER=localhost;DataBase=test;UID=root;PWD=BazaFS_s"
Cnn.ConnectionString = strConn
Cnn.Open()
Rec = New ADODB.Recordset
Rec = Cnn.Execute("SELECT * FROM test2")
Do While Not Rec.EOF
DataGridView1.DataSource = Rec
Rec.MoveNext()
Loop
Rec.Close() : Rec = Nothing
Cnn.Close() : Cnn = Nothing
Даже если вывести всю таблицу в DataGridView1, ничего не произойдет. Что делать?

Решение задачи: «ADODB MySQL ODBC на Visual Basic помогите кто чем сможет»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">Dim</font> conn <font color="blue">As</font> ADODB.Connection
    <font color="blue">Set</font> conn = <font color="blue">New</font> ADODB.Connection
    conn.ConnectionString = <font color="teal">"DRIVER="</font> & Text1.Text & <font color="teal">";"</font> & _
                       <font color="teal">"SERVER="</font> & Text2.Text & <font color="teal">";"</font> & _
                       <font color="teal">"DATABASE="</font> & Text3.Text & <font color="teal">";"</font> & _
                       <font color="teal">"UID="</font> & Text4.Text & <font color="teal">";"</font> & _
                       <font color="teal">"PASSWORD="</font> & Text5.Text & <font color="teal">";"</font> & _
                       <font color="teal">"OPTION="</font> & Text1.Text & <font color="teal">";"</font>
      conn.<font color="blue">Open</font>      
<font color="blue">End</font> <font color="blue">Sub</font>
                        