If nCol = vorgang1.GetCol("pos_artikel_vk_preis_be1") Then
 
 
        Set rsek = New ADODB.Recordset
        With rsek
            .ActiveConnection = conn
            .CursorType = adOpenStatic
            .LockType = adLockOptimistic
            If (vorgang1.IsEditMode = MODE_ADDNEW) And vorgang1.CellNew( _
              "pos_artikel_id") <> "" Then
                SQL = "SELECT artikel_ek_preis_be1, artikel_ek_standard," & _
                "artikel_ek_bemerkung from artikel_ek  WHERE" & _
                "artikel_ek_preis_be1 > 0 and artikel_ek_artikel_id = " & _
                vorgang1.CellNew("pos_artikel_id") & " order by" & _
                "artikel_ek_datum desc"
                .Open SQL
            End If
            If (vorgang1.IsEditMode = MODE_EDIT) And vorgang1.Text(nRow, _
              "pos_artikel_id") <> "" Then
                SQL = "SELECT artikel_ek_preis_be1, artikel_ek_standard," & _
                "artikel_ek_bemerkung from artikel_ek  WHERE" & _
                "artikel_ek_preis_be1 > 0 and artikel_ek_artikel_id = " & _
                vorgang1.Text(nRow, "pos_artikel_id") & " order by" & _
                "artikel_ek_datum desc"
                .Open SQL
            End If
        End With
        With oComboBox
        Set .Recordset = rsek
        .Width = 5000
        .ListRowsMax = 10
        .ColVisible(2) = False
        .COLWIDTH(1) = 750
        .COLWIDTH(2) = 500
        .COLWIDTH(3) = 4250
        .DropDown = True
        End With
 
End If