Private Sub Form_Load() Dim sql As String Dim sdata(1 To 15, 1 To 14) As Variant Dim rs As New Recordset Dim cn As New ADODB.Connection cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=." sql = "Select sdatetime,data from udata" 's = "Select sdatetime,data from udata" 'Set rs = GetRs(s) rs.Open sql, cn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then Exit Sub ReDim ss(rs.RecordCount)
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Chec ......
