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
