Проблема в том, что данные не добавляются в таблицу Access

Вот код(vb.net):

Dim SSQL As String
SSQL = "select * from Met"
Com = New OleDbCommand(SSQL, Con)
Com.Connection = Con
Try
AD = New OleDbDataAdapter()
AD.SelectCommand = Com
AD.Fill(ds, "Met")
Dim Row As Data.DataRow
Row = ds.Tables("Met").NewRow
Row("Code") = 4
Row("Value") = 24
ds.Tables("Met").Rows.Add(Row)
'обновление данных ?????
AD.Update(ds)

пыталась так:

If ds.HasChanges() Then
AD.Update(ds.GetChanges(DataRowState.Added))
End If

и так
AD.Update(ds)
ds.AcceptChanges()

и так
Dim ChR As DataSet = ds.GetChanges()
AD.Update(ChR, "Met")
ds.Merge(ChR)

мне ничего не помогло :(
что я не так делаю?

AD.UpdateCommand = Com
если так писать, то не помогает :( может надо что-то до или после дописывать?

BodyaComUa: Спасибо ВАМ огромное, все работает!