[محمود صالح]

اخي عبد العزيز
ضع الكود في الفورم2 زي ما هو 

PHP كود :

   Private Sub ComboBox1_DropDownClosed(sender As Object, e As EventArgs) Handles ComboBox1.DropDownClosed
        On Error Resume Next
        Dim da_Name As New OleDb.OleDbDataAdapter("select  DateSeance ,sum(Somme) as Somme From TABLETTE where DateSeance like '" & ComboBox1.Text & "' group by DateSeance", con)
        da_Name.Fill(dt)
        TextBox1.Text = dt.Rows(dt.Rows.Count - 1).Item("Somme")
    End Sub