[VB.Net - Access] Update da datatable a DB

[Sh4nK]

Ciao a tutti, ho scritto il seguente codice sulla base di un paio di esempi trovati sul web... non mi da alcun errore, ma neanche mi scrive sul db. Mi sapreste dare una mano cortesemente?
L'array sArr(,) é pieno, mi son fatto buttare a schermo i result e ci sono 254 posizioni piene di dati.
Sbaglio sicuramente qualcosa io perché é la prima volta che mi interfaccio con un db in questo modo. Grazie per un help.

Dim strQ As String = "SELECT tbl_Wandetail.* FROM tbl_Wandetail"

db2Open()
Dim adapter As New OleDb.OleDbDataAdapter
adapter.SelectCommand = New OleDb.OleDbCommand(strQ, cnc)
Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adapter)

Dim tbl As New DataTable
adapter.Fill(tbl)


Dim dr(sArr.GetUpperBound(0)) As DataRow

tbl.Columns.Item(0).ColumnName = "ID_Wandetail"
Dim dc0 As DataColumn = tbl.Columns.Item(0)

tbl.Columns.Item(1).ColumnName = "wanIP"
Dim dc1 As DataColumn = tbl.Columns.Item(1)

tbl.Columns.Item(2).ColumnName = "Redundant"
Dim dc2 As DataColumn = tbl.Columns.Item(2)

tbl.Columns.Item(3).ColumnName = "Description"
Dim dc3 As DataColumn = tbl.Columns.Item(3)

tbl.Columns.Item(4).ColumnName = "nodeTypeId"
Dim dc4 As DataColumn = tbl.Columns.Item(4)

tbl.Columns.Item(5).ColumnName = "wanListId"
Dim dc5 As DataColumn = tbl.Columns.Item(5)

tbl.Columns.Item(0).DataType = GetType(Integer)
tbl.Columns.Item(0).Unique = True
tbl.Columns.Item(0).AutoIncrement = True
tbl.Columns.Item(1).DataType = GetType(String)
tbl.Columns.Item(2).DataType = GetType(Boolean)
tbl.Columns.Item(3).DataType = GetType(String)
tbl.Columns.Item(4).DataType = GetType(Integer)
tbl.Columns.Item(5).DataType = GetType(Integer)

For z = 0 To sArr.GetUpperBound(0) Step 1
dr(z) = tbl.NewRow
dr(z)(dc1) = sArr(z, 0).ToString()
If sArr(z, 1) = "R" Then
dr(z)(dc2) = True
Else
dr(z)(dc2) = False
End If
dr(z)(dc3) = ""
dr(z)(dc4) = 2
dr(z)(dc5) = ID_wl
Next

builder.GetUpdateCommand()
adapter.Update(tbl)
adapter.Dispose()
db2Close()