Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Sql As String
Set db = CurrentDb()
Sql = "Select Right([ZFBH],3) AS XXH,Left([ZFBH],InStrRev([ZFBH]," - ")) AS DM From ZFB where DM = '" & Forms!HTZF!DM & "'"
请大家帮我看看你这句话哪里错误,提示 运行时错误“13”,类型不匹配,感激不尽1