查询多个字符串在另一个字符串最早出现的位置

用自定义函数吧?起码查询语法简单:

Public Function BeforeKeyCode(exp As String) As String
    Dim Keys, i, num As Long
    Keys = Split("管理员,版主,普通会员", ",")'你还可以增加很多其他关键字哦
    For i = 0 To UBound(Keys)
        If InStr(1, exp, Keys(i)) > 0 Then
            num = InStr(1, exp, Keys(i))
            Exit For
        End If
    Next i
    If num < 1 Then
        BeforeKeyCode = ""
    Else
        BeforeKeyCode = Left(exp, num - 1)
    End If
End Function

查询:

select BeforeKeyCode(字段A),字段B FROM 表1