怎样将循环执行到最后一步的数据初始化到第一步时候的数据？？
objCommand.CommandText = 这里是select 查询出来的语句
rs.Open objCommand
If Not(rs.BOF And rs.EOF) Then //这一行
line=""
For Each tmp In rs.Fields
line=line & tmp.Name & ","
Next
ts.WriteLine Left(line,Len(line)-1)
line=line & chr(60) & "br" & chr(62)
While Not rs.EOF
' line=""
For Each tmp In rs.Fields
If IsNull(tmp.Value) Then
line=line & """" & tmp.Value & ""","
End If
Next
ts.WriteLine Left(line,Len(line)-1)
line=line & chr(60) & "br" & chr(62)
rs.MoveNext
Wend
上面语句执行之后，rs就会到最后一个位置。
但我想让rs像 上面//这一行 那样位置到起初的地方，而不是现在的最后一个位置
因为我想再做一次循环 如下，但是rs已经到了最后一步，所以If Not下面的语句将不能执行
If Not(rs.BOF And rs.EOF) Then
For Each tmp In rs.Fields
While Not rs.EOF
等操作。
[解决办法]
rs.MoveFirst
[解决办法]
对ado用MoveFirst定位到第一行，MoveLast定义为到最后一行，MovePrevious定位到前一行,MoveNext定位到下一行
你已经用vb.net了，为什么不用ado.net？这个比ado好用哦
