Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim LItem As ListItem
 
With Cn
    .CursorLocation = xxx
    .Provider = xxx
    .ConnectionString = "Data Source= 'xxx'; Initial Catalog='xxx';User" & _
      "ID='xxx';Password='xxx'"
    .Open
End With
 
With Rs
    .CursorType = adOpenKeyset
    .LockType = adLockPessimistic
    .Open "SELECT ..........", Cn
End With
 
With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
End With
 
With ListView1.ColumnHeaders
    .Add , , "Sachbearbeiter", 120
End With
 
On Error Resume Next
 
Do Until Rs.EOF
    Set LItem = ListView1.ListItems.Add()
    LItem.Text = (Rs!SACHBEARBEITER & "") 
    Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing

VG

Dirk