步骤如下：
1、打开VBA（ALT+F11）
2、右键模块=》插入=》模块
3、粘贴以下代码：
Public Function CutStr(chkStr As String) As String
'截取字符串中第一个数字符
Dim i As Long
For i = 1 To Len(chkStr)
If Mid(chkStr, i, 1) Like "[0-9]" Then
CutStr = Mid(chkStr, i, 1)
Exit Function
End If
Next i
CutStr = chkStr
End Function
4、保存，关闭VBA
5、在access中新建查询，在默认的语句后面增加where条件
SELECT ......FROM 表 where CutStr(字段)== 5