VB6 Alle spaltenbezeichnungen einer Tabelle aus einer access datenbank auslesen

SQL_string = "select * from " & Combo_Tabelle.Text  
    rsTest.Open SQL_string, cnnDB, adOpenStatic, adLockBatchOptimistic 'adLockOptimistic  


Tabelle_Ergebnis.ListItems.Clear

On Error Resume Next
Dim show_Tabelle
For i = 0 To rsTest.Fields.Count - 1  'hier weiss ich nicht ob das richtig ist!!  

Set show_Tabelle = Tabelle_Ergebnis.ListItems.Add(, , rsTest(i).Name)



'''''''''''''''''''''''''''''''''''''''''''''''''  
    rsTest.MoveNext
    i = i + 1
Next