Public Sub Insert_AufwandKonten()
On Error GoTo vErr
    MousePointer = 11
    With txtAufwand_Konto
        .Clear
        .ColumnAdd "ID", "ID", , , False
        .ColumnAdd "Konto", "Konto", , True
        .ColumnAdd "Einheit", "Eingeit", , , False
        .ColumnAdd "Negativ", "Negativ", , , False
 
        .DisplayColumn = 2
        .BoundColumn = 1
 
        If rsAufwand Is Nothing Then
            Set rsAufwand = New adoDB.Recordset
        End If
 
        rsAufwand.Open "Select * from BH_AufwandKonten order by Name", _
          modDB.ConnWP, adOpenForwardOnly, adLockReadOnly
 
        Do While Not rsAufwand.EOF
            .AddItem rsAufwand!id & vbTab & rsAufwand!Name & vbTab & _
              rsAufwand!Einheit & vbTab & rsAufwand!Negativ
            rsAufwand.MoveNext
        Loop
        rsAufwand.Close
        MousePointer = 0
    End With
 
Exit Sub
vErr:
    MousePointer = 0
    modMain.Err_Meldung Me.Name, "Insert_AufwandKonten", Err.Number, _
      Err.Description
 
 
End Sub