If RS_Get_Form_Name_Array.RecordCount <> 0 Then
RS_Get_Form_Name_Array.MoveFirst
RS_Get_Form_Name_Array.MoveLast
RS_Get_Form_Name_Array.MoveFirst
End If
'将查询结果放到数组中,用于以后的操作
ReDim Tmp_Form_Name_Array(RS_Get_Form_Name_Array.RecordCount) As String
For i = 1 To RS_Get_Form_Name_Array.RecordCount
Tmp_Form_Name_Array(i) = RS_Get_Form_Name_Array ("f_form_name")
RS_Get_Form_Name_Array.MoveNext
Next
'关闭数据集
RS_Get_Form_Name_Array.Close
Set RS_Get_Form_Name_Array = Nothing
'关闭数据库
Gbl_DB_InFact.Close
'释放数据库连接变量
Set Gbl_DB_InFact = Nothing