Set wrkAKT = CreateWorkspace("", "MEINUSER", "MEINPWD", dbUseJet)
    Set dbsAKT = wrkAKT.OpenDatabase("MEINEDB.MDB")
 
...
 
    strGlSQL = "SELECT tblAdressen.MATCH, tblAdressen.KDNR, tblAdressen.NAME1," & _
      "tblAdressen.ORT, tblAdressen.LIEFKURZ "
    strGlSQL = strGlSQL & "From tblAdressen Where (((tblAdressen.LIEFKURZ) Is" & _
    "Not Null)) ORDER BY tblAdressen.MATCH;"
 
    With Me!CBX01
        Set .Recordset = dbsAKT.OpenRecordset(strGlSQL)
        .Columns(1).Width = 1750
        .Columns(2).Width = 1750
        .Columns(3).Width = 3500
        .Columns(4).Width = 3000
        .Columns(5).Width = 1000
        .ListWidth = 11000
    End With