Dim S() As Integerset rs=cn.Execute("Select * From TableName",30,adCmdText)For i=0 To rs.recordcounts(i)=rs(i)Next i