[Rabeea Qbaha]

كود :

Dim newbalance As Double
       Dim strimporter As String
       Dim balance As String
       Dim totalb As Double

       totalb = Val(BuyTotalB.Text)
       balance = Val(txt2.Text)

       newbalance = totalb + balance

       If Conn.State = ConnectionState.Closed Then
           Conn.Open()
       End If

       Dim cmd As New OleDb.OleDbCommand
       cmd.Connection = Conn
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "UPDATE Importers SET ImporterBalance=@ImporterBalance WHERE ImporterName= @ImporterName"
       cmd.Parameters.AddWithValue("@ImporterBalance", newbalance)
       cmd.Parameters.AddWithValue("@ImporterName", balance)
       cmd.ExecuteScalar()
       Conn.Close()