Buscador

Hola buenos días experto
encontré este código en la web para buscar datos.
tengo cinco cuadro de texto entonce al cuadro uno (tele) le coloque el código en el evento después de actualizar.
 Private Sub tele_AfterUpdate()
Dim base As Database, tabla As Recordset
Dim res
Dim msg
Dim campo As Field
Dim sql1 As Recordset
Dim tele As String, Cantidad As Long, unitario As Long
Set base = DBEngine.Workspaces(0).Databases(0)
Set tabla = base.OpenRecordset("cliente", DB_OPEN_TABLE)
tabla.Index = "PrimaryKey"
'teléfono = InputBox("Cliente del cual se leerán los datos")
tabla.Seek "=", Me!tele
If Not tabla.NoMatch Then
 MsgBox "Registro Encontrado"
Me![Nombre] = tabla.Fields("Nombre")
Me![código] = tabla.Fields("Código")
Me![dirección] = tabla.Fields("Dirección")
Me![observación] = tabla.Fields("Observaciones")
Else
 MsgBox "No se Puede Encontrar los Datos de la bùqueda"
Me!tele.SetFocus
End If
tabla.Close
End Sub
para que al actualizar el cuadro de texto me de los valores de la tabla cliente en los otros cuadro de texto.actualizo teléfono y me devuelva código de cliente, nombre, dirección observaciones,
gracias por su apoyo espero pueda ayudarme
gracias de ante mano