الترانساكشن مع الاكسيس في الـ vb.net

           F0 = "تسديدات الموردين"
            F = "سداد مستحقات المورد'" + ComboBox1.Text + "'"
            CMD.CommandText = "select * from Indeb where CV_Name = '" & ComboBox1.Text & "' and Type = 0"
            DR = CMD.ExecuteReader()
            DR.Read()
            Dim INN As Double = DR("ID")
            DR.Close()
            CMD.CommandText = "update Indeb set Amount = " & F1 & "Payed = " & F2 & "Still = " & F3 & "STDate = " & F4 & "LTDate = " & F55 & " where ID = " & INN & ""
            CMD.ExecuteNonQuery()
            CMD.CommandText = "insert into cash (A_Kind,Amount,A_Date,Notes,Type) Values (" & F0 & F2 & F4 & F & F12 & ")"
            CMD.ExecuteNonQuery()
            CMD.CommandText = "insert into vc (VCID,VCDate,VCName,Kind,Cash,Still,Type) Values (" & F10 & F4 & F11 & F & F2 & F3 & F12 & ")"
            CMD.ExecuteNonQuery()
            CMD.CommandText = "delete * from Indeb where Still = 0"
            h = CMD.ExecuteNonQuery
            DR.Close()