private sub Text1_Change()
Data1.DatabaseName = App.Path & "\lib.mdb"
Data1.RecordSource = "SELECT * FROM tabla2 WHERE Campo LIKE '" & text1.text & "*' ORDER BY Campo ASC;"
data1.refresh

While Not data1.Recordset.Eof
     list1.additem trim(tb.Field(0))
     data1.recordset.MoveNext
wend
end sub

Private Sub Text1_GotFocus()
List1.Visible = True
List1.Top = Text1.Top + Text1.Height
End Sub

Private Sub Text1_LostFocus()
List1.Visible = False
End Sub

private sub Text1_Change()
Data1.DatabaseName = App.Path & "\lib.mdb"
Data1.RecordSource = "SELECT * FROM tabla2 WHERE Campo LIKE '" & text1.text & "*' ORDER BY Campo ASC;"
data1.refresh

While Not EOF(1)
     list1.additem trim(tb.Field(0))
     data1.recordset.MoveNext
wend
end sub

    Dim x As Printer
    
    For Each x In Printers
        If x.DeviceName = "HP LaserJet 2100 PCL6" Then
            Set Printer = x
            Exit For
        End If
    Next x