تعديل على كود من اكسس الى sql

Try






            If MsgBox("  استمرار اضافة سجل جديد  " & " ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "اضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub


            Mobile = 0


            Application.DoEvents()




            Dim Max As New OleDbCommand("SELECT Max(ID)from Sales ", Con)


            con.Open()
            DataMaxNum = Max.ExecuteScalar + "1"
            con.Close()


            DataSet1.Clear()
            DataSet3.Clear()




            count()


            TXB_ReadOnly_False()


            sqlstr = "SELECT ID,SalesName from salesWomen order by ID"
            DataAdapter2 = New SqlDataAdapter(sqlstr, Con)
            DataAdapter2.Fill(DataSet2, "salesWomen")


            


            Dim comboBoxCell As New DataGridViewComboBoxCell


            DataGridView2(0, 4) = comboBoxCell




            comboBoxCell.Items.Clear()




            For i As Integer = 0 To DataSet2.Tables("SalesWomen").Rows.Count - 1
                comboBoxCell.Items.Add(DataSet2.Tables("SalesWomen").Rows(i).Item("SalesName").ToString)
            Next








            sqlstr = "SELECT ID,BookName,Author,BookSource,NumSource,Price,Rest,Request from Sources where Rest > 0  order by ID"
            DataAdapter4 = New SqlDataAdapter(sqlstr, Con)
            DataAdapter4.Fill(DataSet4, "Sources")




            con.Open()
            DataSet4.Clear()
            DataAdapter4.Fill(DataSet4, "Sources")
            con.Close()




            clmn2.DataPropertyName = DataGridView1.Columns(2).DataPropertyName
            ''حذف العمود القديم 
            DataGridView1.Columns.Remove("BookName")


            ''زيادة العمود الجديد 
            DataGridView1.Columns.Insert(2, clmn2)


            DataGridView1.Columns(2).Name = "BookName"


            DataGridView1.Columns(2).HeaderCell.Style.BackColor = Color.DarkGreen


            DataGridView1.Columns(2).Width = 140
            DataGridView1.Columns(2).HeaderText = "عنوان المصدر المعلوماتي"


            clmn2.Items.Clear()




            For i As Integer = 0 To DataSet4.Tables("Sources").Rows.Count - 1
                clmn2.Items.Add(DataSet4.Tables("Sources").Rows(i.ToString).Item("BookName").ToString)
            Next




            DataGridView2.Focus()
            DataGridView2.Item(0, 0).Selected = True


            Label9.Text = 0


            LastSum = 0






        Catch ex As Exception


            con.Close()


            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


        End Try