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