Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.Mode = adModeReadWrite
    Cn.ConnectionString = "Data Source=" & strDB
 
    Cn.Open
 
    Rs.ActiveConnection = Cn
    Rs.CursorLocation = adUseClient
    Rs.CursorType = adOpenDynamic
    Rs.Open
 
    With frmMain.sdgAdressliste
 
        .LockUpdate True
        .CreateClone = True
 
        Set Rs = Cn.Execute("SELECT * FROM Adressen")
        Set .Recordset = Rs
 
        .LockUpdate False
        .Refresh
 
    End With