Private Sub ConnettiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnettiToolStripMenuItem.Click
        Dim isAvailable = My.Computer.Network.IsAvailable
        'Rilevo se la connessione a internet esiste
        If isAvailable Then
            'Creo un Dataadapter per il server con Tabella INBOX
            Dim ServerDataAdapter As New OleDbDataAdapter()
            ServerDataAdapter.SelectCommand = New OleDbCommand()
            ServerDataAdapter.SelectCommand.Connection = Connessione_server
            ServerDataAdapter.SelectCommand.CommandText = "SELECT * FROM INBOX"
            ServerDataAdapter.SelectCommand.CommandType = CommandType.Text
            Connessione.Open()
            'Inserisco le intestazioni nel dataset
            ServerDataAdapter.Fill(DataSet, "INBOX")
            'Chiudo la connessione con il Database
            Connessione.Close()
            'Creo un dataadapter per il DB contentente la tabella Numeri
            Dim SmsPanel As New OleDbDataAdapter()
            SmsPanel.SelectCommand = New OleDbCommand()
            SmsPanel.SelectCommand.Connection = Connessione_server
            SmsPanel.SelectCommand.CommandText = "SELECT * FROM numeri"
            SmsPanel.SelectCommand.CommandType = CommandType.Text
            Connessione.Open()
            'Inserisco le intestazioni nel dataset
            ServerDataAdapter.Fill(DataSet, "numeri")
            'Chiudo la connessione con il Database
            Connessione.Close()
        End If

    End Sub