auxilio estoy programando con un ADO en VB strsql error

[Zulay Venezuela]

Estoy programando un sistema en VB utilisando un ADO cuando utilizo la instrucción SELECT para accesar caracteres de tipo texto me funciona pero ahora quiero acesar una codigo numerico y no se como escribirlopara buscar la cedula de identidad que es un codigo unico, (el el usuario debe teclear en un textbox) CÓMO LO HAGO en SQL...please...ayuda!!!!
Ejemplo
On Error GoTo Errores:
'SE PROCEDE A VACIAR EN LA VARIABLE STRCNN LA CONEXION DE LA BASE DE DATOS
StrCnn = AdoClientes.ConnectionString
'SE PROCEDE A VACIAR EN LA VARIABLE VARRECBD EL CONTENIDO DEL REGISTRO
Set VarRecBd = New ADODB.Recordset
'SE PROCEDE ASOCIAR EL CAMPO CODIGO CAPTURADO POR PANTALLA EN LA TABLA DONDE SE ENCUENTRA
StrSQL = (SELECT * from Clientes Where Cedula = TxtCedula.Text
'CON LA VARIABLE VARRECBD SE PROCEDE HACER LA APERTURA DE LA TABLA Y LA BASE DE DATOS
With VarRecBd
.Open StrSQL, StrCnn, adOpenDynamic, adLockOptimistic
'SE PREGUNTA SI ES FIN DE ARCHIVO, SI NO SE CONSIGUIO EL CODIGO
If .EOF Then
'SE PROCEDE A AÑADIR UN NUEVO REGISTRO YA QUE LLEGO A FIN DEL ARCHIVO Y EL REGISTRO NO EXISTE
.AddNew
' LO QUE ESTA EN TXTCEDULA.TEXT SE TRASLADA A CADA UNO DE LOS CAMPOS EN .FIELDS("CEDULA").VALUE EN CADA UNO SUCESIVAMENTE
.Fields("Cedula").Value = Val(TxtCedula.Text)
.Fields("Nombre").Value = TxtNombre.Text
.Fields("Apellido").Value = TxtApellido.Text
.Fields("Sexo").Value = TxtSexo.Text
.Fields("Edad").Value = Val(TxtEdad.Text)
.Fields("Tipo_Cuenta").Value = TxtTipo_Cuenta.Text
.Fields("Monto_Apertura").Value = Val(TxtM_Apertura.Text)
.Fields("Fecha_Apertura").Value = CDate(TxtF_Apertura.Text)
.Fields("Saldo").Value = Val(TxtSaldo.Text)
'SE PROCEDE A GUARDAR EL REGISTRO EN LA TABLA
.Update
ojo donde le puse color y es mas grandes

[karchack]

StrSQL = "SELECT * from Clientes Where Cedula = " & TxtCedula.Text

seria asi nada mas, pero no se cual es tu problema o error q' te da, y si me dices con Base De Datos estas trabajando...... te podria dar una mejor ayuda, salu2.........

Estoy programando un sistema en VB utilisando un ADO cuando utilizo la instrucción SELECT para accesar caracteres de tipo texto me funciona pero ahora quiero acesar una codigo numerico y no se como escribirlopara buscar la cedula de identidad que es un codigo unico, (el el usuario debe teclear en un textbox) CÓMO LO HAGO en SQL...please...ayuda!!!!
Ejemplo
On Error GoTo Errores:
'SE PROCEDE A VACIAR EN LA VARIABLE STRCNN LA CONEXION DE LA BASE DE DATOS
StrCnn = AdoClientes.ConnectionString
'SE PROCEDE A VACIAR EN LA VARIABLE VARRECBD EL CONTENIDO DEL REGISTRO
Set VarRecBd = New ADODB.Recordset
'SE PROCEDE ASOCIAR EL CAMPO CODIGO CAPTURADO POR PANTALLA EN LA TABLA DONDE SE ENCUENTRA
StrSQL = (SELECT * from Clientes Where Cedula = TxtCedula.Text
'CON LA VARIABLE VARRECBD SE PROCEDE HACER LA APERTURA DE LA TABLA Y LA BASE DE DATOS
With VarRecBd
.Open StrSQL, StrCnn, adOpenDynamic, adLockOptimistic
'SE PREGUNTA SI ES FIN DE ARCHIVO, SI NO SE CONSIGUIO EL CODIGO
If .EOF Then
'SE PROCEDE A AÑADIR UN NUEVO REGISTRO YA QUE LLEGO A FIN DEL ARCHIVO Y EL REGISTRO NO EXISTE
.AddNew
' LO QUE ESTA EN TXTCEDULA.TEXT SE TRASLADA A CADA UNO DE LOS CAMPOS EN .FIELDS("CEDULA").VALUE EN CADA UNO SUCESIVAMENTE
.Fields("Cedula").Value = Val(TxtCedula.Text)
.Fields("Nombre").Value = TxtNombre.Text
.Fields("Apellido").Value = TxtApellido.Text
.Fields("Sexo").Value = TxtSexo.Text
.Fields("Edad").Value = Val(TxtEdad.Text)
.Fields("Tipo_Cuenta").Value = TxtTipo_Cuenta.Text
.Fields("Monto_Apertura").Value = Val(TxtM_Apertura.Text)
.Fields("Fecha_Apertura").Value = CDate(TxtF_Apertura.Text)
.Fields("Saldo").Value = Val(TxtSaldo.Text)
'SE PROCEDE A GUARDAR EL REGISTRO EN LA TABLA
.Update
ojo donde le puse color y es mas grandes