Novato pide ayuda para Busquedas en BD de access

[pepebuitron]

Hola amigos, soy novato pero con ganas de aprender.

Tengo una base de datos de access, la abro bien con VB 6, uso el control "DATA" y corre bonito el programa que es una agenda.

Deseo hacer búsquedas y las hace muy bien siempre y cuando busque por el Campo ID pero si lo quiero hacer por apellido "Me he matado buscando y no entiendo porque no puedo".

Pego mi código por si alguno me desea ayudar de favor.

Private Sub BuscarPorId_Click()
On Error Resume Next
Dim nReg As Long
nReg = InputBox("Ingresar el Número de Control Interno", "")
Agenda.Recordset.FindFirst "IdContacto = " & nReg
If Text1.Text = nReg Then
Else
MsgBox ("REGISTRO NO ENCONTRADO")
End If

End Sub

Cuando hago la búsqueda por apellido cambio el valor de la variable por String y desde luego el campo que se llama en mi caso ApellidoPaterno.

"HELP ME PLEASE"