Как добавить строку в таблицу объекта DataSet и сохранить её в БД Access?

Dim r As DataRow
        bt_fac_save.Enabled = False
        ' объявление о добавлении новой строки к таблице tab_factory
        r = ds.Tables('tab_factory').NewRow
        ' присвоение полям новой строки значений
        r('f_name') = tb_fac_name.Text
        ' Dim smid As Double = ds.Tables('tab_factory').Rows.Item('f_id')
        r('f_id') = 20
        r('f_contacter') = tb_fac_contacter.Text
        r('f_e-mail') = tb_fac_email.Text
        r('f_tel') = tb_fac_tel.Text
        r('f_fax') = tb_fac_fax.Text
        r('f_address') = tb_fac_address.Text
        r('f_URL') = tb_fac_URL.Text
        r('f_other') = tb_fac_other.Text
        r('f_marka') = tb_fac_marka.Text
        r.EndEdit()
  ' добавление строки к таблице tab_factory в объекте ds с присвоенными                значениями полей
        ds.Tables('tab_factory').Rows.Add(r)
 
        ' начало кода обновления БД
(cn – connection объявил ранее)        ' ====================================================================
        Dim da_fac As New System.Data.OleDb.OleDbDataAdapter('SELECT * FROM Factory ORDER BY f_name', cn)
        Dim bld As New OleDb.OleDbCommandBuilder(da_fac)
    da_fac.Update(ds, 'tab_factory')
        ' ====================================================================
        ' конец кода обновления БД

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll