Private Declare Function SkinH_AttachEx Lib "SkinH_VB6.dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String) As Long
Dim cnn As ADODB.Connection
Dim rec As ADODB.Recordset
Dim recTG101 As ADODB.Recordset, recTG102 As ADODB.Recordset, recTG103 As ADODB.Recordset, recTG104 As ADODB.Recordset, recTG105 As ADODB.Recordset, recTG106 As ADODB.Recordset
Dim recTG101Today As ADODB.Recordset, recTG102Today As ADODB.Recordset, recTG103Today As ADODB.Recordset, recTG104Today As ADODB.Recordset, recTG105Today As ADODB.Recordset, recTG106Today As ADODB.Recordset
Dim recTG101shanchu, recTG102shanchu, recTG103shanchu, recTG104hanchu, recTG105shanchu, recTG106shanchu As ADODB.Recordset

Dim recTD201 As ADODB.Recordset, recTD202 As ADODB.Recordset, recTD203 As ADODB.Recordset, recTD204 As ADODB.Recordset, recTD205 As ADODB.Recordset, recTD206 As ADODB.Recordset
Dim recTD201Today As ADODB.Recordset, recTD20Today2 As ADODB.Recordset, recTD203Today As ADODB.Recordset, recTD204Today As ADODB.Recordset, recTD205Today As ADODB.Recordset, recTD206Today As ADODB.Recordset
Dim recTD201shanchu As ADODB.Recordset, recTD20shanchu2 As ADODB.Recordset, recTD203shanchu As ADODB.Recordset, recTD204shanchu As ADODB.Recordset, recTD205shanchu As ADODB.Recordset, recTD206shacnhu As ADODB.Recordset

Dim recTD301 As ADODB.Recordset, recTD302 As ADODB.Recordset, recTD303 As ADODB.Recordset, recTD304 As ADODB.Recordset, recTD305 As ADODB.Recordset, recTD306 As ADODB.Recordset
Dim recTD301Today As ADODB.Recordset, recTD302Today As ADODB.Recordset, recTD303Today As ADODB.Recordset, recTD304Today As ADODB.Recordset, recTD305Today As ADODB.Recordset, recTD306Today As ADODB.Recordset
Dim recTD301shanchu As ADODB.Recordset, recTD302shanchu As ADODB.Recordset, recTD303shanchu As ADODB.Recordset, recTD304shanchu, recTD305shanchu, recTD306shanchu As ADODB.Recordset

Dim recS As ADODB.Recordset
Dim recC As ADODB.Recordset
Dim recSCExcel As ADODB.Recordset




Dim hyC As ADODB.Recordset
Dim hys As ADODB.Recordset
Dim hyH As ADODB.Recordset
Dim rc As ADODB.Recordset
Dim cgC As ADODB.Recordset


Private Sub Check1_Click()
If Check1.Value = 1 Then
 DTPicker1.Enabled = False
 Combo8.Enabled = False
 Combo9.Enabled = False
 Label16.Enabled = False
 Label17.Enabled = False
End If

If Check1.Value = 0 Then
 DTPicker1.Enabled = True
 Combo8.Enabled = True
 Combo9.Enabled = True
 Label16.Enabled = True
 Label17.Enabled = True
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
 DTPicker2.Enabled = False
 Combo10.Enabled = False
 Combo11.Enabled = False
 Label18.Enabled = False
 Label19.Enabled = False
End If

If Check2.Value = 0 Then
 DTPicker2.Enabled = True
 Combo10.Enabled = True
 Combo11.Enabled = True
 Label18.Enabled = True
 Label19.Enabled = True
End If
End Sub



运行程序选择1205 1206 以后窗口弹出“1004定义的应用程序或对象错误”  请帮助 查找错误原因 谢谢