Dim m_conn As OleDbConnection
        m_conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\utente\Documenti\UTENTI.mdb;Persist Security Info=False")
        Dim m_cmd As OleDbCommand


        m_cmd = m_conn.CreateCommand

        m_conn.Open()
        m_cmd = m_conn.CreateCommand
        If m_conn IsNot Nothing Then
            Dim username As String
            Dim password As String



            username = "SELECT Username FROM Persona WHERE [Username]='" + TextBox1.Text + "' AND [Pass] ='" + TextBox2.Text + "'"
            password = "SELECT Password FROM Persona WHERE [Username]='" + TextBox1.Text + "' AND [Pass] ='" + TextBox2.Text + "'"
           
            Dim OleDbCommand = New OleDbCommand("SELECT * FROM Persona WHERE [Username]='" + TextBox1.Text + "' AND [Passw] ='" + TextBox2.Text + "'", m_conn)
            Dim myReader As OleDbDataReader = OleDbCommand.ExecuteReader
            If myReader.HasRows Then
                If ((TextBox1.Text.ToString = username) And (TextBox2.Text.ToString = password)) Then
                    Dim Utente_Reagistrato As New Form_Utente
                    Me.Visible() = False
                    Utente_Reagistrato.Show()
end if