Colocá en un form, dos commandButton
- al command 1 ponele el nombre "guardar"
y el command 2 el nombre "abrir"
y copia el siguiente código
Dim cnn1 As ADODB.Connection
Dim rstPublishers As ADODB.Recordset
Dim NewrstPublishers As ADODB.Recordset
Dim strCnn As String
Private Sub Command1_Click()
'Guarda el recordset
rstPublishers.Save "c:\Mitexto.txt"
End Sub
Private Sub Command2_Click()
'Inicializa el nuevo recordset y lo abre del archivo
Set NewrstPublishers = New ADODB.Recordset
NewrstPublishers.Open "c:\Mitexto.txt"
End Sub
Private Sub Form_Load()
' Abre una conexión.
Set cnn1 = New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn1.Open (App.Path & "\" & "BIBLIO.mdb"), "admin", ""
' Abre la tabla Clientes
Set rstPublishers = New ADODB.Recordset
rstPublishers.CursorType = adOpenKeyset
rstPublishers.LockType = adLockOptimistic
rstPublishers.Open "Publishers", cnn1, , , adCmdTable
End Sub
'Antes de ejecutarlo tenés que ir al menú Proyecto-Referencias y agregar la referencia al objeto " Microsoft ActiveX data Objects 2.1 Library"
Espero que sea claro.
Cualquier cosa mandame un email y te envio el código.
Suerte