Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
sql = "SELECT 用户名," & _
"switch(权限='1','管理员',权限='0','普通用户') " & _
      "AS 用户权限 FROM 用户表"
rs.Open sql, cn, adOpenDynamic, adLockOptimistic, adCmdText错误信息:
-2147217900[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near '='.