vb.net e access(autorizzazione aggiornamento dati non disponibile)

[amodio]

    Public Sub EliminaTabella(ByVal NomeTabella As String)
            Dim Com As New OleDb.OleDbCommand("drop table " & NomeTabella, conn)
            Com.ExecuteNonQuery()

    End Sub

qui elimino la tabella

 

    Public Sub CreaTabella(ByVal NomeTabella As String, ByVal Campipar As String)
        Dim strsql As String
        Dim Campi() As String = Split(Campipar, ",")
        Dim i As Integer

        strsql = "CREATE TABLE " & NomeTabella & " ( "

        For i = 0 To Campi.Length - 1
            strsql = strsql & " " & Campi(i) & " varchar(100),"
        Next

        strsql = Mid(strsql, 1, Len(strsql) - 1) 'tolgo l'ultima virgola
        strsql = strsql & " )" 'chiudo la parentesi

        Dim Com As New OleDb.OleDbCommand(strsql, conn)
        Com.ExecuteNonQuery()

    End Sub

qui la ricreo

    Try
                Strsql = "insert into " & Nometabella & " (" & Tabelle & ") values (" & Campi & ") "
                Dim Com As New OleDb.OleDbCommand(Strsql, conn)
                Com.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message & "---" & ex.ToString)
            End Try

e qui faccio le insert

sono 3 sub
che vengono richiamate in successione
il punto è che si ferma proprio al momento di fare la insert
ma se aproaccess va tutto bene
grazie