我们在VBA中写代码时，遇到代码较长时，会用到“_ &”来换行的操作，但超过一定行数后，就会提示错误。

解决方法：可以用&号把字符串连接起来的方法来解决，参考下面代码操作的方法

  
    strSQL = ""
    strSQL = strSQL & " Select * FROM ("
    strSQL = strSQL & " Select TOP 100 PERCENT "
    strSQL = strSQL & "    Sys_Users.Online"
    strSQL = strSQL & "  , Sys_Users.Enabled"
    strSQL = strSQL & "  , Sys_Users.Username"
    strSQL = strSQL & "  , Sys_Users.Nickname"
    strSQL = strSQL & "  , Sys_Users.Password"
    strSQL = strSQL & "  , Sys_Users.RoleID"
    strSQL = strSQL & "  , Sys_Roles.RoleName"
    strSQL = strSQL & "  , Sys_Users.LastLoginComputer"
    strSQL = strSQL & "  , Sys_Users.LastLoginTime"
    strSQL = strSQL & "  , Sys_Users.Notes"
    strSQL = strSQL & "  , Sys_Users.Email"
    strSQL = strSQL & "  , Sys_Users.Operator"
    strSQL = strSQL & " FROM Sys_Roles "
    strSQL = strSQL & " INNER JOIN Sys_Users ON Sys_Roles.RoleID "
    strSQL = strSQL & " = Sys_Users.RoleID ) AS V_U_R @Where"
    strSQL = strSQL & " orDER BY RoleName, Nickname"= Sys_Users.RoleID