La "insert into" deve essere compresa in una stringa NON è un comando...

devi fare in questo modo:

Dim objConn as New Connessioni
Dim StrConnSys, StrSQL As string
Dim myCommand As OleDbCommand
Dim myDataReader As OleDbDataReader

Dim cn as new OleDbConnection(stringadiconnessione)
cn.Open()

StrSQL = "INSERT INTO TAB_FILES_ALLINEAMENTO_ARCHIVI_RID (ABI)VALUES ('" & mittente &"')"

myCommand = new OleDbCommand(StrSQL,cn)
myDataReader = myCommand.ExecuteReader()

Ciao
Simo