Problema con guarda datos numericos

[plitre_sys19]

Buenas Tardes! Necesito Ayuda, estoy programado un formulario para que cuando los campos se completen se guarden en una base de datos en access, mi problema es q estoy trabajo con dos campos q son numericos pero me sale esto: "la operacion en varios pasos genero errores. comprube los valores de estado" y esos dos campos no me guardan nada, este es el codigo q estoy utilizando en visual basic 6.0

ado1.Recordset.AddNew
ado1.Recordset!Matricula = txtMatricula.Text
ado1.Recordset!Marca = txtMarca.Text
ado1.Recordset!Modelo = txtModelo.Text
ado1.Recordset!Serial = txtSerial.Text
ado1.Recordset!Fecha = txt3.Text
ado1.Recordset!Tiempo = Text1.Text
ado1.Recordset!Ciclos= txtCiclos.Tex
ado1.Recordset.Update

y estoy utilizando este codigo para q me admita la coma y el punto, como tengo q trabajar en numeros para el text1:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 43 To 46, 48 To 57
Case 8
Exit Sub
Case Else
MsgBox "El Tiempo Total debe ser numérico"
Text1.SetFocus
Exit Sub
End Select
End Sub

q tengo q hacer para q los valores q ingrese en los campos numericos se puedan guardar en la base de datos??
espero q me puedan ayudar

[franko1809]

Prueba con este codigo:

Private Sub Text1_KeyPress(KeyAscii As Integer)
''Solo permite estos caracteres...
If (Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And _
Chr(KeyAscii) <> vbBack And _
Chr(KeyAscii) <> "," And _
Chr(KeyAscii) <> "." Then
KeyAscii = 0
End if
End Sub

[lokoman]

Hola!
La coma "," se usa para separar campos, eso te puede generar errores, verifica así:

Código vb:

ado1.Recordset.AddNew
 
'SUPONIENDO QUE MATRICULA ES EL CAMPO NUMERICO
ado1.Recordset!Matricula = Replace(txtMatricula.Text, ",", "") ' GUARDAMOS SIN LAS COMAS, SOLO NUMEROS Y PUNTOS
 
 
ado1.Recordset!Marca = txtMarca.Text
ado1.Recordset!Modelo = txtModelo.Text
ado1.Recordset!Serial = txtSerial.Text
ado1.Recordset!Fecha = txt3.Text
ado1.Recordset!Tiempo = Text1.Text
ado1.Recordset!Ciclos= txtCiclos.Tex
 
ado1.Recordset.Update
 

[plitre_sys19]

Muchas Gracias a los dos, me sirvio mucho para validar ese campo y se guardara en al bases de datos =D