Dim db As Database, Clients As TableDef, ccBusqueda As QueryDef, rst As Recordset
    Dim codClient As Integer, i As Integer
    Set db = CurrentDb
    Set Clients = db.TableDefs!Clients
    Set ccBusqueda = db.QueryDefs!Consulta
    Set rst = Clients.OpenRecordset(dbOpenDynaset)
    codClient = Me.ccBusqueda
    If codClient <> 1 Then
        For i = 1 To codClient - 1
        rst.MoveNext
        Next i
    End If
    txtCodi = rst![codi]
    txtNom = rst![nom]
    txtCognom = rst![cognom]
    txtPoblacio = rst![poblacio]
    rst.Close