VB6.0 Programmierung

[MathiasP]

Ich habe ein Problem.
Ich habe aus der Datenbank via sql-Befehl Daten in eine Combo-Box geladen. Wenn ich dann eines dieser Elemente auswähle,möchte ich, dass mir das Programm gewisse Daten aus der Datenbank in eine List-Box schreibt, nur funktioniert es nicht!!
Hier ist der Code,
Private Sub D_Arbeiterklassen_Click()
Dim sSql As String
Dim Rsa As New ADODB.Recordset
Dim Con As New ADODB.Connection
Dim Listename As String
Con.ConnectionString = DBVerbindung
sSql = "select Nachname from Mitarbeiter, Klasse where Mitarbeiter.Klasse_ID = Klasse.Klasse_ID and Klasse.Bezeichnung='" + D_Arbeiterklassen.Text + "'"

If Con.State = 0 Then Con.Open
Rsa.Open sSql, Con
If Not Rsa.EOF Then
Listename = Rsa.Fields("Nachname")

list_vorh.Item.AddItem (Rsa.Fields("Nachname"))


Else
text_vorh.Text = Rsa.Fields("Nachname")
list_vorh.Item.AddItem ("")
End If
End Sub