App.title=""

 Data1.RecordSource = "SELECT Changes.Date, Changes.Time, Changes.Company, " & _
            "Changes.Discontinued, Changes.Customer, Changes.PhoneHouse, Changes.PhoneWork, Changes.Bank, " & _
            "Changes.PhoneBank, Changes.Amount, Changes.Interest, Changes.Change From Changes " & _
             "WHERE Changes.Company = '" & Compania.Text & "'" & " ORDER BY Changes.Date DESC, Changes.Time DESC "

Private Sub Form_Load()
    Dim x As Printer
    For Each x In Printers
       List1.AddItem x.DeviceName
    Next
End Sub

Dim base as Database
Dim tabla as Recorset

Set base = OpenDatabase("C:\BaseMSN.mdb")

'Con una tabla de nombre tablaregistro

Set tabla = BaseMSN.OpenRecorset("tablaregistro")

'Compuesta por los campos username y password

tablaregistro.AddNew
  tablaregistro(0) = Text1
  tablaregistro(1) = Text2
tablaregistro.Update
'Se guarda la información
  
base.Close
'Se cierra para que no de errores