Cita:
Iniciado por chicho28 
Option Explicit
Dim cadenaconexion As String
Public conn As ADODB.Connection
Public tabla As New ADODB.Recordset
Public Sub conectar()
cadenaconexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Set conn = CreateObject("ADODB.connection")
conn.ConnectionString = cadenaconexion
conn.CursorLocation = 3
conn.Open
Exit Sub
error:
Resume Next
End Sub
////////////////////////////////////////////////////////////////////////////
pero ahora quisiera una codificacion para abrir la tabla desde un formulario utilizando ado
Ya tienes creado tu recordset ADO (llamado
Tabla) lo único que queda es abrir el recordset y mostrarlo p.e. en un DataGrid:
Tabla.Open "Select * From [NombreDeLaTabla]", conn
Set DataGrid.DataSource = Tabla 