Visual Basic - Consulta

Dim Rs As New ADODB.Recordset

Set Rs = Cn.Execute("Select IDEmpleado, " & _
"IDHorario, Entrada, Salida, TEMinimo From Evento " & _
"Where ID = '" & TxtID & "'")
If (Rs.EOF And Rs.BOF) Then
MsgBox "No Existe Ningún ID Este Número"
txtCodigo.SetFocus
txtCodigo.SelStart = 0
txtCodigo.SelLength = Len(TxtID)
Exit Sub
End If

El campo ID es numerico al hacer la consulta me marca que "No coinciden los tipos de datos en la expresion de criterios". Como le puedo hacer para que no me marque este error. Gracias y Saludos A Todos.

Si el campo ID es numérico y el contenido de TxtID no es un número te generará un error.

Recomiendo, para mayor seguridad, que cambies

Set Rs = Cn.Execute("Select IDEmpleado, " & _
"IDHorario, Entrada, Salida, TEMinimo From Evento " & _
"Where ID = '" & TxtID & "'")

Por (se agrega VAL a TxtID)

Set Rs = Cn.Execute("Select IDEmpleado, " & _
"IDHorario, Entrada, Salida, TEMinimo From Evento " & _
"Where ID = '" & Val(TxtID) & "'")