...
With SectionAudit.Controls("posBox" & x).
  AddItem Rs1.Fields("Position").Value 
  ' <---- WIE KANN ICH HIER DIE 2TE SPALTE DER DB-TABELLE EINFUEGEN (FIELDS( 
  ' "POSNR")) 
 
  .ItemTag(.NewIndex) = Rs1.Fields("POSNR").Value
End With
...

Private Sub posBox1_Click()
  Dim nPosNr As Long
 
  With posBox1
    If .ListIndex >=0 Then
      nPosNr = .ItemTag( .ListIndex)
      ...
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de