Private Sub ButtonAccedi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAccedi.Click
        'Login
        Dim login As String = ""
        Dim conn As OleDb.OleDbConnection
        conn = New OleDb.OleDbConnection("Provider=sqloledb;" & _
                                                         "Data Source=IPdelSERVER;" & _
                                                         "Initial Catalog=NOMEdb;" & _
                                                         "User Id=USER;" & _
                                                         "Password=PSW;")
        Dim cmd As New OleDb.OleDbCommand
        Dim reader As OleDb.OleDbDataReader
        Dim sql As String = "SELECT * FROM utenti " & _
                            "WHERE user_id = '" & Request.Form("TextBoxUtente") & "' AND " & _
                                  "pass = '" & Request.Form("TextboxPass") & "'"
        Try
            conn.Open()
            cmd = New OleDb.OleDbCommand(sql, conn)
            reader = cmd.ExecuteReader()
            If reader.Read Then
                Session("login") = reader.Item("tipo")
                Try
                    Response.Redirect("clienti.aspx", False)
                Catch ex As Exception
                    Me.TextBoxMessage.Text = ex.ToString
                End Try
            Else
                Me.TextBoxMessage.Text = "Utente non riconosciuto"
            End If
        Catch ex As Exception
            Me.TextBoxMessage.Text = ex.ToString()
        Finally
            conn.Close()
        End Try
    End Sub