月亮代表我的心简单版:vb遇到的问题

用VB做工具栏，当运行我做的东西时，第一次点TOOLBAR的任何一个按纽时，连接的窗体（假设FORM1）能打开，但是把FORM1关闭，第二次点按纽再想打开FORM1时发生错误，说“对象打开时，不允许操作”。也就是说运行一次，FORM1只能打开一次。我调试，提示错误的地方是下面代码的13行
1. Private Sub Form_Load()

2.MSFlexGrid1.Rows = 1
3.MSFlexGrid1.Cols = 8
4.MSFlexGrid1.TextArray(0 * 8 + 0) = "货号"
5.MSFlexGrid1.TextArray(0 * 8 + 1) = "商品条码"
6.MSFlexGrid1.TextArray(0 * 8 + 2) = "商品名称"
7.MSFlexGrid1.TextArray(0 * 8 + 3) = "货物单价"
8.MSFlexGrid1.TextArray(0 * 8 + 4) = "最后进价"
9.MSFlexGrid1.TextArray(0 * 8 + 5) = "计量单位"
10.MSFlexGrid1.TextArray(0 * 8 + 6) = "最低库存"
11.MSFlexGrid1.TextArray(0 * 8 + 7) = "供应商"

12.Set rs = New ADODB.Recordset
13.con.Open "provider=microsoft.jet.oledb.4.0;data source=cs.mdb"
14.rs.Open "goodinfor", con, adOpenDynamic + adOpenKeyset, 15.adLockOptimistic, -1
16.While Not rs.EOF
17.MSFlexGrid1.AddItem rs!goodid & Chr(9)
18.rs.MoveNext
19.Wend
20.Set rs = Nothing
21.End Sub