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)
