leggere il nome del campo di un database

[tigre2209]

una volta aperto un database, come posso sapere i nomi dei campi della tabella?

rs????

[Max Mercury]

in vb6?
Fai una select Top 0 * from nometabella
e poi hai i campi in rs.Fields(idx).Name

[tigre2209]

ho provato cosi:
dopo aver fatto la query select * from tabella

For i = 1 To rs.Fields.Count
A = rs.Fields(i).Name

If A <> "cognome" Or A <> "nome" Or A <> "importo" Then
MsgBox "Errore sul nome del campo!" & vbCrLf & "il nome della colonna " & a & vbCrLf & "è da sostituire", vbCritical, "Errore Nome Campo"
rs.Close
End If
Next

ma mi da errore.
è come se c'e' un campo in piu' l'errore è su questa riga.

A = rs.Fields(i).Name

dove a="importo" e rs.fields("i).name mi dice che "IMPOSSIBILE TROVARE L'OGGETTO"

dove sbaglio?

in pratica prima di copiare i dati della tabella vorrei fare un controllo se i nomi dei campi inseriti sono esatti-

[oregon]

Meglio scrivere

For i = 0 To rs.Fields.Count-1