[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته
حاول مثلا هكذا بالفورم لود للفورم المقصود ..

كود :

      Try
           Dim cmd_Credit As OledbCommand = New OledbCommand()
           Dim Reader_Credit As OledbDataReader = Nothing
           If Conne_2018.State = ConnectionState.Open Then
               Conne_2018.Close()
           End If
           Conne_2018.Open()
           Dim query_Credit As String

           query_Credit = " SELECT ID,Customer_Name, SUM (Total) As Sum_Total FROM TB_Name GROUP BY Customer_Name "

           cmd_Credit = New OledbCommand(query_Credit, Conne_2018)
           Reader_Credit = cmd_Credit.ExecuteReader()
           While Reader_Credit.Read
               If Reader_Credit IsNot Nothing Then
                   TextBox1.Text = Reader_Credit.Item("Total")
               End If
           End While
       Catch ex As Exception
       End Try

تحياتي