高手急求,在WIN98系统提示如果对象打开,就不能执行应用程序的请求。
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public CL_CNA As New ADODB.Connection
Public CLLJ As New ADODB.Recordset
Public ZCXD As New ADODB.Recordset
Public ykzxyhm As String
Public ykzxsf As String
Public YKZXHYKS As Date
Public ykzxsql As Date
FORM1。LOAD
On Error GoTo hhj:
Shell App.Path & "\regsvr32 /s " & App.Path & "\ssubTmr6.dll"
hhj:
Dim cl_conn As String
On Error GoTo yyui:
cl_conn = "PROVIDER=SQLOLEDB;password=34293042;persist security info=false;user id=ykzxAAB;initial catalog=sdyy;data source=SQLSERVER"
CL_CNA.ConnectionTimeout = 30
CL_CNA.Open cl_conn
With CLLJ
.ActiveConnection = CL_CNA
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.CursorLocation = adUseClient
End With
With ZCXD
.ActiveConnection = CL_CNA
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.CursorLocation = adUseClient
End With
帮我看看是什么错误。