Sub doehet()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT Vraag, HoofdCat, SubCat, VraagID FROM Sheet1 WHERE HoofdCat = 1 And SubCat = 2 ORDER BY VraagID;")
    Do While Not rs.EOF
       MsgBox rs!vraag, , rs!VraagID
       rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub

           Public Sub InvullenWegschrijven(ByVal Hfd As String, ByVal Gt As String)
Dim test As String
    'On Error GoTo Err_1

          Set db = CurrentDb
        test = "SELECT tbl_Questions.QuestionAutoID, tbl_Questions.SoortHoofdID, tbl_Questions.SoortGateID, " & _
                "tbl_Questions.QuestionID, tbl_Questions.Question, tbl_Questions.Status " & _
                "FROM tbl_Questions WHERE tbl_Questions.SoortHoofdID ='" & Hfd & "' And tbl_Questions.SoortGateID ='" & Gt & "' ORDER BY QuestionID ;"
                                   
        Set rs = db.OpenRecordset(test)
            Do While Not rs.EOF
               MsgBox rs!vraag, , rs!VraagID
               rs.MoveNext
            Loop
            rs.Close
            Set rs = Nothing
            db.Close
            Set db = Nothing
end sub