Private Sub Command1_Click()
Dim Imagen01 As Picture
Dim imagen02 As Picture
Set imagen02 = LoadPicture("C:\SisGen\66.bmp")
Set Imagen01 = LoadPicture("C:\SisGen\n.jpg")

Printer.PaintPicture imagen02, 0, 0
Printer.PaintPicture Imagen01, 0, 7300
Printer.EndDoc

End Sub

Private Sub Buscar(Optional ByVal Siguiente As Boolean = False)
    Dim nReg As Long
    Dim vBookmark As Variant
    Dim sADOBuscar As String
    nReg = Val(Text2)
    On Error Resume Next
        If Option7.Value Then
        sADOBuscar = "AMBVA Like '" & Text2.Text & t6.Text & "'"
    End If
    If Option1.Value Then
            sADOBuscar = "ja Like '" & Text2.Text & "'"
    End If
            vBookmark = Adodc1.Recordset.Bookmark
    If Siguiente = False Then
        Adodc1.Recordset.MoveFirst
        Adodc1.Recordset.Find sADOBuscar
    Else
        Adodc1.Recordset.Find sADOBuscar, 1
    End If
    If Err.Number Or Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF Then
        Err.Clear
        Adodc1.Recordset.Bookmark = vBookmark
    End If
    End Sub