在模块中用public关键字声明数组即可

写一个函数取得数据
'Form2
Dim a(2)
Private Sub Form_Load()
a(0) = 123
End Sub
Public Function getA(i)
getA = a(i)
End Function

'Form1
Private Sub Command1_Click()
Form2.Show
MsgBox Form2.getA(0)
End Sub

////////在模块中用public关键字声明数组即可///////
程序中NEW多个窗体时就不行了

可以在标准模块中使用全局数组也可以将数组作为一个参数从一个窗体传给另一个窗体

数组是动态数组啊，而且数据量教大

我覺得如果定義一個public的recordset（在公共模塊中）比較好,這樣的話，就可以在程序中的各個地方使用該數據集。

在公用模块中public 数组

把数组定义成全局变量，直接引用就可以了