Sub subOpen(strCMn As String)
theRST.Open Source:=strCMn, ActiveConnection:=theCON, _
CursorType:=adOpenStatic, LockType:=adLockPessimistic, Options:=adCmdText
End Sub
Private Sub Class_Initialize()
Set theCON = New ADODB.Connection
Set theRST = New ADODB.Recordset
End Sub
Private Sub Class_Terminate()
theCON.Close
Set theRST = Nothing
Set theCON = Nothing
End Sub作者: 暗黑 時間: 2010-6-14 13:15