Error Codigo Visual Basic Access 2013

Estoy trabajando en visual basic 2010 accediendo a una base de datos en access 2013 para llenar una tabla sencilla de dos campos un código de un departamento y el nombre del departamento para ello eh utilizado el siguiente código

 Function Agregar_Deptos(ByVal iddpto As String, ByVal departamento As String) As Boolean
        ' Conexion
        Dim Conexion As New OleDb.OleDbConnection
        Conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = SIDLO.accdb;Persist Security info=false"

        ' Instruccion Sql
        Dim CadenaSQL As String = "INSERT INTO tbldepartamentos (iddpto,departamento)"
        CadenaSQL = CadenaSQL + " VALUES ( " & iddpto & ","
        CadenaSQL = CadenaSQL + "" & departamento & ")"
        ' Crear Comando
        Dim Comando As OleDb.OleDbCommand = Conexion.CreateCommand()
        Comando.CommandText = CadenaSQL
        ' Ejecutar consulta Acción
        Conexión.Open()
        Comando.ExecuteNonQuery()
        Conexion.Close()
        Return True
    End Function

El inconveniente se da en la ejecución del Comando. ExecuteNonQuery() al compilar me dice no se encontró OleDb Excepción no se han especificado valores para algunos de los parámetros requeridos

Error code : -2147217904