MySQL - conectar mysql con visual basic 6

hola a todos. Les quiero pedir que por favor alfguien me ayude a resolver este problema:

he conectado mi base de datos con visual basic con este codigo:
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 4.1 Driver};server=localhost;uid=root;;database=multidatos"
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 PERO AQUI ME MARCA ERRRRRRRRRRRROO...
End Sub
me gustaria que alguien me ayudara ya que soy principiante

Hola,

¿Qué error te da?

Da la sensación de que el problema puede ser que la variable rs no la tengas definida como global.

Un saludo desde A Coruña (España)

Hey pero por lo menos dinos que dice el error porque pueden haber muchas posibilidades............... hasta luego

pues la verda Ahi donde sale tu error Creo que tienes que configurar el datagrid
yo utilizo el MSFlex grid

msflexgrid1.visible=true
conectar
db.open
sql="select*from Alumnos"
rs.open sql, db
if(rs.EOF=true) or (rs.BOF = true) Then
msgbox ("no hay Datos en la Tabla")

else
rs.movefirst
with MSFlexgrid1

.refresh
.clear 'limpiar
.cols= 0 'toma en cuenta la columna fija (encabezado)
.rows=1 'toma en cuenta la fila fija (encabezado)
.FormatString = "Numero Nombre Carrera Edad
end