dim BD as database

set BD = Workspaces(0).OpenDatabase("nombreBD", Exclusivo, SoloLectura)

on local error resume next
BD.Execute "INSERT INTO Tabla " & _
               "(Campo1, Campo2, ...) VALUES " & _
               "('" & valor1 & "', '" & valor2 & "', " & ... & ")", dbFailOnError
if err then msgbox Err.Number & vbcrlf Err.description
On local error goto 0

bd.close
set bd = nothing

[/close]

Open "c:\...\nuevo_archivo.txt" For Output As #F

private sub Form_Rezise
text1.left = me.width - text1.width-100
end sub

Dim Maximizado As Boolean
Dim Ancho As Long, Alto As Long, Arriba As Long, Izquierda As Long

Private Sub Form_Resize()
    If Maximizado Then
        If Me.WindowState = 2 Then
            Me.WindowState = 0
            Me.Move Izquierda, Arriba, Ancho, Alto
            Maximizado = Not (Maximizado)
        End If
    Else
        If Me.WindowState = 2 Then
            Me.WindowState = 0
            
            Maximizado = Not (Maximizado)
            
            Ancho = Me.Width
            Alto = Me.Height
            Arriba = Me.Top
            Izquierda = Me.Left
            
            Me.Width = Screen.Width
            Me.Top = 0
            Me.Left = 0
    
        End If
    End If
    
End Sub

Printer.PaintPicture Picture1.Picture