VB怎样获取数据库多条数据

Question

我想把查询到到第一条记录和最后一条记录之间某字段的值赋值给数组。

Answer 1

 Set conn = New ADODB.Connection
Set rs = new ADODB.RecordSet
conn.Open 你的连接字符串
sql = "select * from table where ..."
rs.Open sql, conn
c = rs.Count
i = 1
while not (rs.eof)
if  i <> 1 and i <> rs.Count Then
msgbox rs!字段
end if
rs.MoveNext
end while