VB6.0+ADODC+MYSQL Necesito ayuda

[scribenicis]

Hola, estoy haciendo un programa en Visual Basic que va enlazado a una base de datos en mysql, tengo un formulario con un Datagrid y un Adodc.
La conexion con la base de datos creo que la hace perfectamente, el codigo que uso es:
Private Sub Conectar_Click()
On Error GoTo msgError
Set db = New ADODB.Connection
Set tabla = New ADODB.Recordset
db.CursorLocation = adUseClient
db.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=pizzeria;UID=lol ;PWD=;"
db.Open
MsgBox "Conexión establecida!!!", vbExclamation, "Conexión"
Exit Sub
msgError:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Error"
End Sub

Entonces el problema esta cuando quiero visualizar los datos ejecutando con otro boton.

De manera grafica al poner el datasource en el datagrid, visual basic se queda bloqueado.

Por comando lo intento de esta manera:

Private Sub Visualizar_Click()
With Adodc1
.ConnectionString = db
.CommandType = adCmdTable
.RecordSource = "SELECT * FROM pedidos"
.Refresh
End With

With DataGrid1
Set .DataSource = Adodc1.Recordset
.Refresh
End With

End Sub


Muchas gracias, un saludo