...
      With oComboBox
        ' ComboBox an Recordset binden
        Dim oRs As ADODB.Recordset
        Set oRs = New ADODB.Recordset
        With oRs
          .CursorLocation = adUseClient
          .Open "SELECT ID, PLZ, Ort FROM tblPLZ ORDER BY tblPlz ORDER BY PLZ", _
            oDB, adOpenDynamic, adLockOptimistic
        End With
        Set .Recordset = oRs
        oRs.Close
        Set oRs = Nothing
....

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de