Add new Rows

[al fart]

Dim conn As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; data source = " & msPath & "Database1.accdb;")
Dim dt As New DataTable()
Dim sSql As String = "SELECT * FROM Table1"
Dim da As New OleDb.OleDbDataAdapter(sSql, conn)
Dim iChange As Integer
da.Fill(dt)
For iLoop As Integer = 0 To lstN.Count - 1
    Dim row As DataRow = dt.NewRow
    row("Draw") = lstN.Item(iLoop)
    row("Character") = lstC(iLoop)
    dt.Rows.Add(row)
Next
 
'Here is the Question:
'An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll
 
iChange = da.Update(dt)
 
'Syntax error in INSERT INTO statement
 
conn.Close()

thanks for help