Private Sub CreaDatabase()
        'Connessione al mio Server SQL
        Dim Connessione As New SqlConnection("Server=Cineteca;uid=CinetecaUser;pwd=CinetecaPassword;database=master")
        Connessione.Open()
        'Creazione Database ed eventuale Settaggio delle impostazioni
        Dim Comando As New SqlCommand("Create Database Cineteca", Connessione)
        Comando.CommandType = CommandType.Text
        Comando.ExecuteNonQuery()
        'Apertura del Database
        Connessione.Open()
        'Creazione Tabella Film
        Dim CreaTabella As New SqlCommand("Create Table Film(ID Int,Titolo Varchar(50))", Connessione)
        CreaTabella.CommandType = CommandType.Text
        CreaTabella.ExecuteNonQuery()
    End Sub