rs.Open "select * from UserSring,UsersNew where UsersNew.UsersName='" & Trim(txtUserName.Text) & "' and UsersNew.UsersNo=UserSring.UserNo & "'", db, adOpenKeyset, adLockOptimistic