ماهى المشكلة فى هذا الكود

السلام عليكم ورحمة الله وبركاته

أنا جديد فى لغة VB .NET فأرجو منكم المساعدة وجزاكم الله خيرا حيث أننى أريد عمل برنامج إضافةوإلغاءوحفظ على قاعدة البيانات MS Access 2003 ولكن بعد عمل البرنامج ليس هناك أى إضافة للسجل فى قاعدة البيانات ممكن من فضلكم تخبرونى ماهو الخطأ فى الكود التالى :-

Dim Odbc_Con As New OdbcConnection
        Dim odbc_command As New OdbcCommand
        Dim sSQL As String
        Dim daCompany As New OdbcDataAdapter
        Dim dsCompany As New DataSet
        Dim tblCompany As DataTable
        Dim drCompany As DataRow
        Dim i As Integer

        Odbc_Con.ConnectionString = "DSN=STC1"
       
        Try
            If Odbc_Con.State = ConnectionState.Closed Then
                Odbc_Con.Open()
            End If

            sSQL = "Select * from company"
            odbc_command.CommandText = sSQL
            odbc_command.CommandType = CommandType.Text
            odbc_command.Connection = Odbc_Con
            daCompany.SelectCommand = odbc_command
            daCompany.Fill(dsCompany, "company")

            'i = dsCompany.Tables("company").Rows.Count()
            tblCompany = dsCompany.Tables("company")
            drCompany = tblCompany.NewRow()
            drCompany("company_id") = 2
            drCompany("company_name_e") = "Just for test"
            drCompany("company_name_a") = "مجرد تجربة"
            tblCompany.Rows.Add(drCompany)
            drCompany.AcceptChanges()
            tblCompany.AcceptChanges()
            daCompany.Update(tblCompany)
            dsCompany.AcceptChanges()
            i = tblCompany.Rows.Count()
            MsgBox(i.ToString())
            daCompany.Update(dsCompany, "company")
            'Dim test1 As Integer
            'Dim test2 As String
            'test1 = tblCompany.Rows.Item(0)(0)
            'test2 = tblCompany.Rows.Item(0)(1)
            'MsgBox(test1.ToString())
            'MsgBox(test2)
            If Odbc_Con.State = ConnectionState.Open Then
                Odbc_Con.Close()
            End If
        Catch Exp As OdbcException
            MsgBox(Exp.Message, MsgBoxStyle.Critical, "SQL Error")
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try