SoloCodigo

Hola alguien me puede decir porque al ejecutar el sig. proc. me genera error 3131:
Private Sub TxtCod_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Dim dbsLaboratorio11 As DAO.Database
        Set dbsLaboratorio11 = OpenDatabase("C:Proyecto NuevoDatosLaboratorio11.mdb")
        Dim rPacient As Recordset
        Dim VarBuscar As String
        Dim strSQL As String
        VarBuscar = Val(TxtCod.Text) '"Busqueda por Código"
        If VarBuscar = "" Then
            MsgBox "No ha Introducido el Código"
            Exit Sub
        End If
        strSQL = "SELECT [CodiPaciente] FROM Pacientes" _
        & "WHERE CodiPaciente =`VarBuscar´"
        Set rPacient = dbsLaboratorio11.OpenRecordset(strSQL)
        rstPacient!Cédula = TxtCedpacient.Text
        TxtNompacient.Text = rstPacient!Nombre
        TxtEdad.Text = rstPacient!Edad
        TxtSexo.Text = rstPacient!Sexo
        TxtTalla.Text = rstPacient!Talla
        TxtPeso.Text = rstPacient!Peso
        TxtDirec.Text = rstPacient!Dirección
        TxtTlf.Text = rstPacient!Teléfono
        CboTipopacient.Text = rstPacient!TipoPaciente
        TxtFecha.Text = rstPacient!Fecha
   End If
End Sub

Quisiera saber como hacer para pasar datos de un DBgrid a otro; al hacer click en un registro de uno de ellos me lo muestre en el otro