Private cn As ADODB.Connection 'Para abrir bases de datos

Function ConectarMDB()
On Error GoTo Err

    'Crear los objetos
    Set cn = New ADODB.Connection
    
    With cn
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source="Lugar de la base de datos";" & _
            "Jet OLEDB:Database Password=password"
    End With
  

Exit Function
Err:
    MsgBox Err.Description & vbCrLf & Err.Number, vbExclamation, App.Title
End Function

Open "C:\archivo.txt" For Append As #1 'Creas el archivo para agregarle texto al final
        Print #1, Text1.Text 'Guardas el contenido del textbox1 en el archivo
        Print #1, Text2.Text 'Guardas el contenido del textbox2 en el archivo
Close #1 'cierras el archivo.

SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2