'Combobox Firma laden
Dim sSQL7 As String
  Dim oRs7 As New ADODB.Recordset  
  If dbODBC_op = True Then 
 sSQL7 = "select TDB_FIRMA.FRMID, TDB_FIRMA.FIRMENNAME"
 sSQL7 = sSQL7 & " from TDB_FIRMA"
 sSQL7 = sSQL7 & " group by TDB_FIRMA.FRMID, TDB_FIRMA.FIRMENNAME"
With oRs7
       .ActiveConnection = DB_ODBCon
       .CursorLocation = adUseClient
       .CursorType = adOpenStatic
       .LockType = adLockOptimistic
       .Source = sSQL7
       .Open
End With
  With Combo77
    .Style = rsComboBox
    .AutoComplete = True
       Set .Recordset = oRs7
        .BoundColumn = 1
        .Columns(1).Width = 50
        .Columns(2).Width = 4000
        .ListWidth = 3000
        .WheelMouse = True
        .SortColumn = 2
        .Sorted = True
        .DisplayColumn = 3
        .Columns(1).Visible = False
        .Tag = .SubItem(.ListIndex, 1)
 
End With
      oRs7.Close
      Set oRs7 = Nothing
End If