Sonarse todos los registros de una Tabla de Un Soplo en "Access"

[GeoAvila]

hola gracias pero todo quedo asi...

Código:

Option Explicit
Dim cnn As New Connection
Dim rst As New Recordset
Private Sub Form_Load()
Dim sBase As String
    sBase = App.Path & "\otMadermac.mdb"
    
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    rst.Open "Select * From OTEXPOR", cnn, adOpenDynamic, adLockOptimistic
end sub