Option Explicit
 
' Datenbankvariablen
Global db As Database        ' Datenbank
Public tbanrede As Recordset 'Adresstabelle
 
Sub main()
Dim result
' Fehlerbehandlung einschalten
  On Error GoTo errhandler
  Set db = OpenDatabase(dbfile, False, False, ";pwd=" & dbpwd)
 
  mdldb.db_lesen_anrede
' Procedure Verlassen und Fehlerbehandlung
  Exit Sub
errhandler:
  mdlmain.errhandler
  Exit Sub
  Resume Next
End Sub

Option Explicit
 
Public Sub db_lesen_anrede()
' Fehlerbehandlung einschalten
  On Error GoTo errhandler
'**************************************************************************
  Set tbanrede = db.OpenRecordset("sta_ard")
'**************************************************************************
' Procedure Verlassen und Fehlerbehandlung
  Exit Sub
errhandler:
  mdlmain.errhandler
  Exit Sub
  Resume Next
End Sub