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????!!!!!!!!!!!!
