Sub kysimine1()
  Dim cn As New ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim lause As String
  cn.Open "yhendus1"
  lause = "SELECT eesnimi FROM inimesed " & _
             "ORDER BY eesnimi DESC"
  Set rs = cn.Execute(lause)
  Do While Not rs.EOF
    MsgBox rs("eesnimi")
    rs.MoveNext
  Loop
  cn.Close
End Sub