errore scrittura nuovo record in msaccess

salve,
sono un neofita
non riesco a scrivere un nuovo record, potete aiutarmi per cortesia,
Dad2 = New OleDbDataAdapter("Select * from art_taglia_colore ", Con)
Dad2.Fill(Dst2, "Art_Taglia_Colore")
' dsNewRow = Dst2.Tables("Art_Taglia_Colore").NewRow()

Dim dt As DataTable = Dst2.Tables("Art_Taglia_Colore")

Dim newRow As DataRow = dt.NewRow()

Dim como7 As String

Me.DV1.CurrentCell = Me.DV1(como_Col, 0)
como7 = DV1.CurrentRow.Cells.Item(como_Col).Value

'XXXXXXXXXXXXXXXXXXXXXXXXXXX
' carico dati da tabella colori
CurrentRow = 0
Dad3 = New OleDbDataAdapter("Select * from Tabella_Colori where colore = '"& como7 & "'", Con)
Dad3.Fill(Dst3, "Tabella_Colori")

newRow("ID_Taglia_Colore") = Dst3.Tables("Tabella_Colori").Rows(CurrentRow)("id_tabella_colori")
newRow("colori_sequenza") = Dst3.Tables("Tabella_Colori").Rows(CurrentRow)("colori_sequenza")
newRow("colore") = Dst3.Tables("Tabella_Colori").Rows(CurrentRow)("colore")

newRow("ID_taglia_colore") = comordi

dt.Rows.Add(newRow)
Dad2.Update(dt)
mi da questo errore : Update richiede un InsertCommand valido se la raccolta DataRow viene passata con righe nuove.