добрый день!


Пытаюсь добавить данные с VB 2010 в базу данных accsess Написал код, он не ругается, ошибок не выдает но данные не добавляет.

Подскажите где туплю, не давно только начал этим заниматся.

в таблице есть столбци



Private Sub addvop()
Dim nr As TestirovanieDataSet2.D_base1Row
nr = TestirovanieDataSet2.D_base1.NewD_base1Row
nr("Data") = "10.11.2002"
nr("Fil") = "SADF"
nr("Dol") = "1"
nr("vrem_zap") = 1
nr("vop_nom_test") = 1
nr("vop_nom_global") = 1
nr("otvev") = "1"
nr("Primechanie") = 1
nr("var_test") = 1
TestirovanieDataSet2.D_base1.Rows.Add(nr)
End Sub