Dim Rs As Recordset
Dim SQL As String
Dim sOrt As String
 
sOrt = "Heimatort"
SQL = "SELECT * FROM Tabelle2 WHERE Ortsbezeichnung = '" & sOrt & "'"
 
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
  While Not Rs.Eof
    ...
    Rs.MoveNext
  Wend
Else
  MsgBox "keine Daten gefunden!"
End If