...
iMaxZeile = rst.RecordCount
...

If iMaxZeile > 0 then
   MsgBox "Ist vorhanden"
Else
   MsgBox "Ist nicht vorhanden"
End If

...
...
Dim sFolderPath As String
Dim sDestPath As String
 
' Initialisierung des Rohrnetzbezirkes
Rohrnetzbezirk = txtEingabe.Text
 
If txtEingabe.Text = "Bitte RNBZ eingeben" Then MsgBox "Bitte geben Sie einen" & _
  "Rohrnetzbezirk an!", vbInformation, "Eingabe RNBZ": Exit Sub
If txtEingabe.Text <> db.OpenRecordset.Fields(RNBZ) Then MsgBox "RNBZ nicht" & _
"vorhanden!": Exit Sub
If Not iMaxZeile > 0 Then MsgBox "RohrbezirksnetzNummer nicht vorhanden": _
Exit Sub
 
Set db = DBEngine.Workspaces(0).OpenDatabase("D:\Ortsnetzverwaltung.mdb")
Set rst = db.OpenRecordset("SELECT * FROM O_Netz_RNBZ WHERE RNBZ =  '" & _
  Rohrnetzbezirk & "'", dbOpenDynaset)
...
...