cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\beijian.mdb;Persist Security Info=False"
   sql = "select * from " & fenglei & " where 备件编号 = " & (MSHFlexGrid1.TextMatrix(j, 0)) & ""
    rs.Open sql, cn, 3, 3

最后一句报错，表达式中数据类型不匹配怎么回事？备件编号里的数据是字符串主要问题在：备件编号 = " & (MSHFlexGrid1.TextMatrix(j, 0)) & "这里，如果数据库中改成数值型就没问题，但是我在编号里使用的字符，这个怎么弄的？

sql = "select * from " & fenglei & " where 备件编号 = '" & (MSHFlexGrid1.TextMatrix(j, 0)) & "'"

如果是字符，在 SQL 命令中，必须用 单引号引起来。