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")




        m_conn.Open()

        If m_conn IsNot Nothing Then
           

            Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Persona WHERE [Username]='" + TextBox1.Text + "' AND [Pass] ='" + TextBox2.Text + "'", m_conn)