Visual Basic - ayudaaaa

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)

checa los formatos de fecha ya k casi siepre hay k darle formato a el campo fecha y los numericos no llevan 'n' los campos de texto "tex"