要加上CN, adOpenForwardOnly, adLockReadOnly
--要这样写
rs.Open "SELECT TOP 1 * FROM [user] WHERE username = '" & UsrNa & "'",CN, adOpenForwardOnly, adLockReadOnly
--要这样写
rs.Open "SELECT TOP 1 * FROM [user] WHERE username = '" & UsrNa & "'",CN, adOpenForwardOnly, adLockReadOnly
Rs.Open SQL,连接字符串