Public Sub CreaConnessione()
        'controllo se in locale ho le tabelle
        Server = "localhost\SQLEXPRESS"
        Try
            
            dbconnection = New SqlConnection("Data Source=" & Server & ";Initial Catalog=festaman2;Integrated Security=True")
        Catch ex As Exception 'System.Data.SqlClient.SqlException

            MsgBox("non trovo il server")
        End Try
        'Server = "wxp04579\SQLEXPRESS"
        'dbconnection = New SqlConnection("Data Source=" & Server & ";Initial Catalog=dbname;Integrated Security=True")
    End Sub