Visual Basic - ayuda para insertar una fila a una bd access

Hola, tengo un problema al momento de insertar los campos a una tabla en access, cuando ejecuto la aplicacion, en un boton de comando llamo al procedimiento insertar() y me sale el error:" que los tipos no coinciden". he estado tratando de ver el error al momento de enviar los datos pero nada.... alguien me podría ayudar. Gracias de antemano.
Aqui dejo el codigo del procedimento:
Private Sub insertar()
On Error GoTo salid:
Dim rs As ADODB.Recordset
Dim sql As String, orden As Integer, codunidad As String, tipo As String
Dim total As Double, almacen As String, detalle As String, referencia As String
Dim fecha As Date, fap As String, codprov As String
est = 1
codprov = txtCodigoProveedor.text
fap = txtFap.text
referencia = txtReferencia.text
detalle = txtDetalle.text
almacen = txtAlmacen.text
tipo = cmbOrden.text
codunidad = txtCodigoUnidad.text
orden = Val(txtOrden.text)
fecha = dtFecha.Value 'dtFecha.Value
total = Val(lblTotal.Caption)
If est = 1 Then
sql = "insert into [orden_compra](cod_orden_compra,codigo_unidad,tipo_orden,fecha,almacen,detalle,referencia,facturar,cod_proveedor,total) values(" + _
" '" + orden + " ','" + txtCodigoUnidad.text + "' , '" + cmbOrden.text + "','" + fecha + "' , '" + txtAlmacen.text + "' , '" + txtDetalle.text + "' , '" + txtReferencia.text + "' , '" + txtFap.text + "' , '" + txtCodigoProveedor.text + "' , '" + total + "')"
Set rs = mdlFunciones.ejecutarConsulta(sql)
Call mdlFunciones.mensajeOk("Se registró Correctamente la Orden de Compra!")
'Call cancelar
'Call listar
Else
Err.Description = "Debe Ingresar Todos Los Campos"
Call mdlFunciones.mensajeError("Al Grabar")
End If
Exit Sub
salid:
Call mdlFunciones.mensajeError("Al Grabar")
End Sub

fijate que formato son los campos de esa tabla porque si por ej el campo cod_orden_compra es de formato numerico ya tenes un error,
fijate y avisame si no lo solucionaste

si pe, el campo cod_orden_compra y el campo total son numericos, el campo fecha es datetime .
Yo he realizado la insercion asi, e tratado de cambiarle, pero no me funca.... si puedes ayudarme gracias...
saludos.

Dim rs As ADODB.Recordset
Dim sql As String, , orden As Integer
dim total as double, fecha date
fecha = dtFecha.Value
total = Val(lblTotal.Caption)
sql = "insert into [orden_compra](cod_orden_compra,codigo_unidad,tipo_orden,fecha,almacen,detalle,referencia,facturar,cod_proveedor,total) values(" + _
" '" + orden + " ','" + txtCodigoUnidad.text + "' , '" + cmbOrden.text + "','" + fecha + "' , '" + txtAlmacen.text + "' , '" + txtDetalle.text + "' , '" + txtReferencia.text + "' , '" + txtFap.text + "' , '" + txtCodigoProveedor.text + "' , '" + total + "')"
Set rs = mdlFunciones.ejecutarConsulta(sql)

lo que pasa es q vos estas utilizando apostrofe y comillas para datos numericos osea vos pones ' '" + orden + " ' y los datos numericos se insertan asi " + orden + "
solo comillas , se entiende. si esos campos nada + son numericos cod_orden_compra y total proba asi entonces
sql = "insert into [orden_compra](cod_orden_compra,codigo_unidad,tipo_orden,fecha,almacen,detalle,referencia,facturar,cod_proveedor,total) values(" +" orden + ",'" + txtCodigoUnidad.text + "' , '" + cmbOrden.text + "','" + fecha + "' , '" + txtAlmacen.text + "' , '" + txtDetalle.text + "' , '" + txtReferencia.text + "' , '" + txtFap.text + "' , '" + txtCodigoProveedor.text + "' , " + total + ")"
Set rs = mdlFunciones.ejecutarConsulta(sql)
y si tenes problemas avisa que no hay problema,saludos fede