Visual Basic.NET - Ayudaaaa!!! Problema a compilar mi proyecto con base de datos..

Function Agregar_Registro(ByVal Numero_sobre As String, ByVal Fecha_entrada As String, ByVal Id_marca As String, ByVal Id_modello As String, ByVal Numero_reloj As String, ByVal Ref_modelo As String, ByVal Material As String, ByVal Esfera As String, ByVal Numero_brazalete As String, ByVal Id_cliente As String, ByVal Trabajo_pedido As String, ByVal Id_presupuesto As String, ByVal Observaciones As String) As Boolean

              Dim Sobre As String = Convert.ToString(Numero_sobre)

        Dim CodMarca As Integer = Convert.ToInt32(Id_marca)

        Dim CodModelo As Integer = Convert.ToInt32(Id_modello)

        Dim CodCliente As Integer = Convert.ToInt32(Id_cliente)

        'CONEXION

        Dim Conexion As New OleDbConnection

        Conexion.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0; Data Source = ..\\Debug\\DDBB.mdb; Persist Security Info=False; User Id=admin; Password=;"

        'CADENA SQL

        Dim CadenaSQL As String = "INSERT INTO ficha_reloj (Numero_sobre,Fecha_entrada,Id_marca,Id_modello,Numero_reloj,Ref_modelo,Material,Esfera,Numero_brazalete,Id_cliente,Trabajo_pedido,Id_presupuesto,Observaciones,Aceptacion_presupuesto,Elab_presupuesto,Comunicacion_presupuesto,CaducidadGarantia)"

        CadenaSQL = CadenaSQL + "VALUES ('" & Sobre & "',"

        CadenaSQL = CadenaSQL + "       '" & Fecha_entrada & "',"

        CadenaSQL = CadenaSQL + "       '" & CodMarca & "',"

        CadenaSQL = CadenaSQL + "       '" & CodModelo & "',"

        CadenaSQL = CadenaSQL + "       '" & Numero_reloj & "',"

        CadenaSQL = CadenaSQL + "       '" & Ref_modelo & "',"

        CadenaSQL = CadenaSQL + "       '" & Material & "',"

        CadenaSQL = CadenaSQL + "       '" & Esfera & "',"

        CadenaSQL = CadenaSQL + "       '" & Numero_brazalete & "',"

        CadenaSQL = CadenaSQL + "       '" & CodCliente & "',"

        CadenaSQL = CadenaSQL + "       '" & Trabajo_pedido & "',"

        CadenaSQL = CadenaSQL + "       '" & Id_presupuesto & "',"

        CadenaSQL = CadenaSQL + "       '" & Observaciones & "',"

        CadenaSQL = CadenaSQL + "       'NO',"

        CadenaSQL = CadenaSQL + "       'NO',"

        CadenaSQL = CadenaSQL + "       'NO',"

        CadenaSQL = CadenaSQL + "       'EN TALLER')"

        'CREAR COMANDO

        Dim Comando As OleDbCommand = Conexion.CreateCommand()

        Comando.CommandText = CadenaSQL

        'EJECUTAR CONSULTA DE ACCION

        Conexion.Open()

        Comando.ExecuteNonQuery()

        Conexion.Close()

        Return True

    End Function