You didn't mention which line is throwing the error. I'm guessing this line is the issue. The code is missing "="
rs.Open "Select Name,Phoneno,Age from Test where SN " & addEdit.Text, con, adOpenStatic, adLockReadOnly
it should be
rs.Open "Select Name,Phoneno,Age from Test where SN = " & addEdit.Text, con, adOpenStatic, adLockReadOnly