这个问题好大！！！

Question

Public Sub Read_Recordset()  '读取记录
  Set rs1 = New Recordset
  rs1.CursorLocation = adUseClient  '数据指针在Client端
                                    '使用SQL语法，打开产品基本数据
  rs1.Open "SELECT * FROM product ORDER BY prd_no", cn, adOpenDynamic, adLockOptimistic, adCmdText
End Subrs1在什么地方定义的呢!在上面的程序中好像没有定义啊!
你设断点看一下,rs1到底有没有取回记录集!还有在DisplayRecord中
为何在If Not IsNull(rs1.Fields(i)) Then MSFlexGrid1.Text = rs1.Fields(i) Else
下一行有这个语句      MSFlexGrid1.Text = ""有可能就是这句的问题!
建议改成:
If Not IsNull(rs1.Fields(i)) Then 
  MSFlexGrid1.Text = rs1.Fields(i) 
Else
  MSFlexGrid1.Text = ""
endif

Answer 1

rs1已经定义在模块中，你说的另一个问题我要回去试一试，谢了。

Answer 2

多试试！
路是人走平的，问题是人试出来的