GetADORecordSet()

O método GetADORecordSet retorna um Recordset do tipo ADO (ActiveX Data Object), resultante da execução da Consulta configurada. Exemplo:

Sub Botao1_Click()
  Set rec = Screen.Item("Consulta1").GetADORecordset()
  strDatas = " "
  i = 0
 
  ' Mostra uma mensagem com os 10 primeiros
  ' registros da coluna E3TimeStamp
  While (NOT rec.EOF AND i < 10)
    strDatas = strDatas & CStr(rec.Fields.Item("E3TimeStamp").Value) & _
      Chr(10) & Chr(13)
    i = i + 1
    rec.MoveNext()
  Wend
  MsgBox strDatas
End Sub