Dim adsa As Integer
        Dim ads As Integer
        For adsa = 0 To Label4.Text
            For ads = 0 To 4
                Dim row As String() = New String() {myDataTable.Rows(adsa).Item(ads).ToString()}
            Next
        Next

Call Connects()
        MySqlCmd = New MySqlCommand
        MySqlCmd.Connection = Myconnect
        MySqlCmd.CommandText = "SELECT Count(distinct os_number) AS os_number FROM order_sub o where  isActive=0"
        MyDA = New MySqlDataAdapter
        myDataTable = New DataTable
        READER = MySqlCmd.ExecuteReader()
        MyDA.SelectCommand = MySqlCmd
        While READER.Read
            Dim prod = READER.GetInt32("os_number")
            Label4.Text = prod
        End While