problema para guardar

[alex_escudero14]

amigos este es mi problemA:



Public Function InsertarRegistro() As Boolean
' Declarar e instanciar la conexion
Dim ConexionADO As ADODB.Connection
Set ConexionADO = New ADODB.Connection
' Marcador de error
On Error GoTo ErrorEjecutar
With ConexionADO
.CursorLocation = adUseClient
.Open m_CadConexion
.Execute GeneraCadena("cs031150")
.Close
End With
Set ConexionADO = Nothing
InsertarRegistro = True
Exit Function
ErrorEjecutar:
MsgBox Err.Description & Chr(13) & "No se grabaron los datos.", vbCritical + vbOKOnly _
, "Error al grabar la información"
If ConexionADO.State = adStateOpen Then ConexionADO.Close
Set ConexionADO = Nothing
InsertarRegistro = False
End Function
**** Y esta es la FUNCION GENERA CADENA******

Private Function GeneraCadena(tabla As String) As String
Dim cadena As String
If m_TipoOperacion = 1 Then
cadena = "Insert Into " & tabla & " Values ('" & CStr(m_FecDepo) & "', '" & CStr(m_FecIniDepo) & _
"', '" & CStr(m_FecFinDepo) & "', '" & m_TipoDepo & "', '" & m_NroCuenta & "'," & m_MontoDepo & _
",'" & m_NroPapeleta & "')"
End If
GeneraCadena = cadena
End Function Y ESTA LA TABLA:


FECDEPO DATETIME 8
FECINIDEPO DATETIME 8
FECFINDEPO DATETIME8
TIPODEPO CHAR 1
NROCUENTA CHAR 10
MONTODEPO FLOAT 8
NROPAPELETA CHAR 12
COD2000 INT 4
IDCOD CHAR 3




EL PROBLEMA ES QUE CUANDO LLENO LOS CAMPOS (POR EJEMPLO EN IMPORTE:123.456 Y NRO PAPELETA :1234568789)
ME SALE UN ERROR QUE DICE:
"ERROR DE INSERCION:EL NOMBRE DE LA COLUMNA O LOS VALORES ESPECIFICADOS
NO CORRESPONDEN A LA DEFINICION DE LA TABLA"

QUISIERA SABER CUAL ES LA FALLA Y QUE PUEDO HACER PARA RESOLVER ESTE PROBLEMA