Public Sub InitConnection(Filename As String)
 
    'Verbindung zu Datenbank erzeugen
 
    Dim Sql As String
 
    Sql = "Select Name from Firmen"
 
    Filename = App.Path & "\epea.mdb"
 
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.ConnectionString = Filename
 
    Cn.CursorLocation = adUseClient
    Cn.Mode = adModeReadWrite
 
    Cn.Open
 
    Set Rs.ActiveConnection = Cn
    Rs.LockType = adLockOptimistic
    Rs.Source = Sql
    Rs.Open
 
End Sub