Visual Basic - como enlazar tabla con datdagrid sin adodc

Intento enlazar datagrid con tabla, pero sin adodc, utilizo vb6 y pongo:

set datagrid.datasource = rs.....pero no sale nada al ejecutar el programa

soy el mismo de antes NEO_FRIXERO graciassaludos desde SEVILLA (españa)

Mira, te voy a dar una forma de hacerlo, aunque ya había visto la respuesta que te habían dado antes, pero si no te funciona, es seguro que Rodolfo del Perú, nuevamente te indicará la solución.

Te enviaré a tu correo otra forma de hacer, es un poco larga en pasos, pero te es muy fácil de hacer, yo uso DataGrid para mostrar los registros de alguna de mis BD.

Te lo mandaré a tu correo para ordenarlo por pasos y más detalladamente.

uso DataGrid para mostrar los registros de alguna de mis BD.

uso DataGrid para mostrar los registros de alguna de mis BD.

uso DataGrid para mostrar los registros de alguna de mis BD.

Private Sub Command1_Click()
Dim cn1 As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn1 = New ADODB.Connection
cn1.ConnectionString = "DBQ= C:\proyecto_Cursos1\cursos.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
cn1.CommandTimeout = 60
cn1.Open

'hasta esta parte lo unico que hace es conectar la base de datos
'esto yo lo hago regularmente cuando arrarnca en sistema
' para que siempre esté trabajando con una sola conneccion
' y no estarse conectando a cada rato, bueno esa es mi técnica
' a no ser que algun otro compañero del foro tenga otra idea
' y si es así es bien recivida

'******************************************

'el siguiente codigo es el que realmente enlaza tu consulta a tu
'datagrid sin tener que utilizar otro control.
Set rs = New ADODB.Recordset
rs.Open "select empresapk,nomempresa,rfcempresa from empresa", cn1, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub