Set Gbl_DB_Con = New ADODB.Connection
Gbl_DB_Con.Open "Provider = sqloledb;data source=devserver;user ID=sa;initial catalog=test_Excel;password= pass"
建立数据集,
对数据集操作,
关闭数据集。
Dim RS_Get_Form_Name_Array As ADOR.Recordset
Set RS_Get_Form_Name_Array = New ADOR.Recordset
RS_Get_Form_Name_Array.close
set RS_Get_Form_Name_Array =nothing