MySQL - conectar mysql con visual basic 6

gracias por la respuesta jose Ramon y si, el error que me da es en rs, ya que me muestra que la variable no esta definida.
pero si esta definida al principio del codigo checa, esta en los asteriscos que coloque y el error esta al final del codigo en las diagonales...

de todas maneras muchisimas gracias, igual y me doy una idea de donde puedo verificar este error.
gracias...

Option Explicit
Private Sub DataGrid1_Click()
**************************Public rs As ADODB.Recordset
Public con As Connection
Public Sub conectar()
Set con = New ADODB.Connection
con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=multidatos;connection="
con.Open
End Sub
Sub registro()
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from ventas"
End With
End Sub

Private Sub Form_Load()
conectar
registro
//////////////////////////////////////////////////////Set DataGrid1.DataSource = rs
End Sub

Hola de nuevo,

No entiendo muy bien el código, por lo que veo ¿Form_Load() está dentro de DataGrid1_Click()?

Yo pondría el Public rs As ADODB.Recordset justo después de Option Explicit.

Otra posibilidad es convertir Registro en una función:

Function registro() as ADODB.Recordset
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from ventas"
End With
set registro=rs
End Function

De esta forma en Form_Load sería:
Private Sub Form_Load()
conectar
Set DataGrid1.DataSource = registro
End Sub

Espero haber ayudado.
Un saludo desde A Coruña (España)