Access visual basic

Tengo una base de datos en access conectada a visual basic 6, es una base de datos con campos como empleados, apellidos, teléfono y otros. Lo único que me falta es buscar por nombres o apellidos actualmente solo me busca cuando pongo el campo completo, osea los dos nombres o los dos apellidos, lo que yo quiero es buscar por un nombre o un apellido o por caracteres, tengo una combo box en donde selecciono el tipo de búsqueda, por nombres o apellidos, una text box en donde se ingresa la búsqueda y un botón buscar y las text box en donde se muestran los resultados, anexo el código que estoy ocupando
Private Sub Command1_Click()
'Comprobamos que la caja combinada de la búsqueda no se este vacía.
If Len(Trim(Combo1.Text)) = 0 Then
    MsgBox ("Debe especificar el tipo de búsqueda")
    Combo1.SetFocus
'Verificamos si la caja del texto a buscar esta vacía.
ElseIf Len(Trim(Txtbuscartexto.Text)) = 0 Then
    MsgBox ("Debe especificar el Nombre, Apellido o DUI")
    Txtbuscartexto.SetFocus
Else
    'Verificamos el tipo de búsqueda.
    If LCase(Combo1.Text) = LCase("Apellidos") Then
        rs.Find "Apellidos = '" & Txtbuscartexto.Text & "'", 1 'Buscamos por el Apellido.
    End If
    If LCase(Combo1.Text) = LCase("Nombres") Then
        rs.Find "Nombres = '" & Txtbuscartexto.Text & "'", 1 'Buscamos por el Nombre.
    End If
    If LCase(Combo1.Text) = LCase("DUI") Then
        rs.Find "DUI = '" & Txtbuscartexto.Text & "'", 1 'Buscamos por el DUI.
    End If
    'Verificamos si la búsqueda tiene éxito y ponemos los datos en las cajas de texto.
    If rs.BOF = False And rs.EOF = False Then
        Txtnombre.Text = rs.Fields("Nombres")      'Ponemos el nombre del registro actual.
        Txtapellido.Text = rs.Fields("Apellidos")     'Ponemos el apellido del registro actual.
        Txtdui.Text = rs.Fields("DUI")    'Ponemos el DUI del registro actual.
        Txtdireccion.Text = rs.Fields("Direccion")   'Ponemos la dirección del registro actual.
        Txttelefono.Text = rs.Fields("Telefono")       'Ponemos el telefono del registro actual.
Else
        'Mostramos un mensaje si la búsqueda no tiene éxito.
        MsgBox ("No se ha podido localizar el registro")
    End If
End If
End Sub
Espero su ayuda desde ya muchas gracias