Dim cnn As Connection
    Dim rs As Recordset
    Dim sqlStmt As String
 
        cnn = New Connection()
        rs = New Recordset()
        cnn.Open("DSN=DSN-Name")
        sqlStmt = "SELECT * FROM Datei WHERE Bedingung ORDER BY Felder"
        Do While Not rs.EOF
            rs.MoveNext()
        Loop
 
        rs = Nothing
        cnn = Nothing