Aggregar con sql ayuda

[foreneo]

pues miren tengo este codigo

----------------------------------------------------------------------
Private Sub cmdagregar_Click()
sql = "select*from articulos where cod_art='" & txtcodigo.Text & "'"
Set rst = bd.OpenRecordset(sql)
If rst.RecordCount > 0 Then
MsgBox "Articulo Encontrado, Imposible dar de Alta", vbCritical, "Verificar Codigo"
Else
rst.AddNew
rst!cod_art = txtcodigo
rst!descripcion = txtdesc
rst!existencia = txtexis
rst!Precio = txtprecio
rst!Unidad = cmbunidad
rst!IVA = cmbiva
rst.Update
MsgBox "Articulo Dado de Alta", vbInformation, "CONFIRMACION"
limpiar
txtcodigo.SetFocus
End If
End Sub
-----------------------------------------------------------------------
me marca error "no coinciden los tipos de datos en la expresion de criterios"

alguien sabe por que????!!!!!!!!!!!!

[GeoAvila]

lo que pasa es que tenes cantidades en texto, entonces te da ese error revisa tus compos en la base de datos, y a los que son numero los encerras en Val(texto.text), de esta manera, para que lo acepte la base de datos..

nos vemos..