Visual Basic - Datagrid sin Data Control y sin ODBC

Por favor si alguien puede enviarme la rutina para usar un Data Grid en VB6 sin enlace a un datacontrol ni ODBC, necesito optimizarlo con cadena de conexion directa a una base de datos Access. Gracias

Te respondí en el foro "Visual Basic Avanzado"

'Debe cargar una Referencia de Ado y Dao al programa
' En un Modulo escribir estas sentencias de codigo.

Option explicit
Public Conectar as connection
Public rs AS New ADODB.RECORDSET

' Luego ya en el programa en si escribir las siguiente rutina

Private Sub Command1_Click()
'
Dim sql as string

Conectar.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Direccion;Persist Security info=false"
Conectar.Open
'
sql="SELECT * FROM tabla"
if rs.State=1 Then rs.close: set rs=Nothing
Conectar.CursorLocation=AdUseClient
rs.open sql, Conectar
Set Datagrid1.Datasource=rs
'
End Sub