Public Sub OpenDB()
Dim sConnect  As String
 
  On Error GoTo FAULT
 
  With goRegistry
    .HKEY = HKEY_LOCAL_MACHINE
    .Firma = ""
    .Programm = "Buch"
    .REG = REG_SZ
     sConnect = .RegReadWert("Datenbank")
     SikZeit = .RegReadWert("ZeitSicherung")
  End With
 
  Set goConn = New ADODB.Connection
  Call goConn.Open(sConnect)
  Exit Sub
 
FAULT:
 Call MsgBox("Konnte Datenbank nicht öffnen!", vbCritical + vbOKOnly, _
   "Datenbank!")
 
End Sub