别人的方法
Public HTcn As ADODB.Connection
Public HTrs As New ADODB.Recordset
Public Function OpenStandHT(HTmdbPath As String)
Set HTcn = New ADODB.Connection
'Set HTcn = CurrentProject.Connection
HTcn.Provider = "Microsoft.Jet.OLEDB.4.0"
HTcn.Open HTmdbPath
End Function
Public Function CloseStandHT()
HTrs.Close
Set HTrs = Nothing
HTcn.Close
Set HTcn = Nothing
End Function
我用来关闭数据库就出现“对象关闭时,不允许操作” ,是不是HTrs没与数据库联系起来?