代码问题！！给分！！

[sugui]

下面的代码提示“do while not rst.EOF”出错！！
set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.ConnectionTimeout = 300
cn.Open Session("DZCRM_connection_string")

strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1
do while not rst.EOF
RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
rst.Close

[CrazyFor]

TRY:

set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.ConnectionTimeout = 300
cn.Open Session("DZCRM_connection_string")

strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1

do while not (rst.EOF and rst.bof)

RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
rst.Close

[sugui]

i will try it

[SophiaWang]

set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.ConnectionTimeout = 300
cn.Open Session("DZCRM_connection_string")

strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1
do while not rst.EOF and not rst.BOF
RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
Loop
rst.Close

[pengdali]

set cn=server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
set rstUser = server.CreateObject("adodb.recordset")
cn.NonnectionTimeout = 300
cn.Open Session("DZCRM_connection_string")

strSql = "Select CustomerName,Address from CustomerBaseInfo"
rst.Open strSql,cn,1
while not rst.EOF
RoadFeeName=rst("CustomerName")
RoadAddress=rst("Address")
rst.next
rst.Close