Bom, se vc passar o index do campo vc pega o nome assim:
Recordset(1).Name = Nome_do_campo
O inverso pelo q eu conheço é um pouco + difícil...pega esta dica:
e para saber o index por meio do nome do campo modifique para este jeito só pra vc ver:
...
Do While Not .EOF
Set rs2 = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "" & rs!table_name & ""))
Do While Not rs2.EOF
IF Recordset(rs2!COLUMN_NAME) = "NOME_CAMPO" Then
Debug.Print "" & rs2!ORDINAL_POSITION 'INDEX DO CAMPO
ENDIF
'Debug.Print "" & rs2!Description
'Debug.Print "" & rs2!ORDINAL_POSITION
rs2.MoveNext
Loop
.MoveNext
Loop
...
qq dúvida postae
at+