如何得到 ADODB 返回的记录信息 (在线等候)

Question

我知道如何用ADODB修改记录，但不知该如何读取记录。比下面如这段语句，如何把ADODB查询的记录条数的值赋给N？
Private Sub Command1_Click()
  Dim N as Integer
  Dim Cnn As New ADODB.Connection
  Cnn.ConnectionString = "......"
  Cnn.CommandTimeout = Cmdtimout
  Cnn.ConnectionTimeout = Cnntimout
  Cnn.Open
  SqlUp = "select COUNT(*)as n from Table1 where name ='chen'
  Cnn.Execute (SqlUp)
  .....?
End Sub

Answer 1

dim rst as recordset 
set rst = cnn.execute(sqlup)
N = rst.fields(0).value

Answer 2

n= Cnn.Execute (SqlUp).fields("n").value，给分

Answer 3

dim rs as Recordset 
set rs = cnn.execute(sqlup)
N = rs("n")