hi all
I`m trying to insert information in accdb

I wrote this code

Code:
Try
           Label1.Visible = False
           UltraLabel7.Visible = False
           Dim ba As New databazaDataSetTableAdapters.saqoneliTableAdapter
           Dim ja As New databazaDataSetTableAdapters.historyTableAdapter
           Dim fi As New databazaDataSetTableAdapters.fizikuriTableAdapter
           Dim ma As New databazaDataSetTableAdapters.saqoneliTableAdapter
           Dim tg = ma.GetDataBysaqoneli(0)
           Dim dbpsw As Integer = tg.Rows(0).Item(0)
           Dim aaaa As String = UltraTextEditor1.Text
           Dim bbbb As String = UltraTextEditor10.Text
           Dim cccc As String = UltraTextEditor11.Text
           Dim dddd As String = UltraTextEditor9.Text
           fi.Insert(UltraComboEditor1.Text, UltraComboEditor2.Text, UltraComboEditor3.Text, UltraComboEditor4.Text, UltraComboEditor5.Text, UltraComboEditor6.Text)
           UltraLabel7.Text = UltraComboEditor1.Text
           UltraComboEditor1.Refresh()
           UltraComboEditor1.RefreshList()
           UltraComboEditor2.Refresh()
           UltraComboEditor2.RefreshList()
           UltraComboEditor3.Refresh()
           UltraComboEditor3.RefreshList()
           UltraComboEditor4.Refresh()
           UltraComboEditor4.RefreshList()
           UltraComboEditor5.Refresh()
           UltraComboEditor5.RefreshList()
           UltraComboEditor6.Refresh()
           UltraComboEditor6.RefreshList()
           UltraComboEditor1.SelectedItem.DisplayText = UltraLabel7.Text
           Dim momid As Integer = UltraComboEditor1.SelectedIndex
           ba.Insert(momid, aaaa, cccc, bbbb, dddd, UltraCalendarCombo1.Text)
           Form1.DataGridView1.DataSource.GetType()
           Form1.DataGridView1.Refresh()
           If SaqoneliTableAdapter.GetData.Rows(0).Item(3).ToString = Me.UltraTextEditor1.Text Then
               ja.Insert(momid, dbpsw, UltraCalendarCombo1.Text, "", dddd)
           Else
               Exit Sub
           End If
and when I trying to debug the project and trying to insert info this gives methe error




please help me...

I do not know what to do...


P.S. I`m trying to write the LOMBART system...
if anybody have exaples please give me or tell me what to do for this code....

thanks....