[vbnet]

.....

كود :

Private Sub btnajout_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnajout.Click
    Dt.Clear()
    SoldDataAdapter.SelectCommand.Parameters.Clear()
    SoldDataAdapter.SelectCommand.Parameters.AddWithValue("@CodeP", Me.CmbProd.Text)
    If SoldDataAdapter.Fill(Dt) > 0 Then Me.Qte.Text = Dt.Rows(0).Item("Solde")
End Sub

.....