Cómo encontrar nombres de campos a través del contenido de datos en vb

Debido a que no sé si su base de datos se abre con un control de datos o un objeto de datos, solo puedo hacer una suposición audaz: se abre con un objeto de datos:

'..... La base de datos se omite aquí. Proceso de conexión

Establecer rs = CreateObject("adodb.recordset")

rs.open "select * from [grado de tolerancia] donde [tamaño del proyecto]= 3", conn, 1, 1

Si rs.EOF Entonces

MsgBox "¡Datos no encontrados!"

De lo contrario

Para i = 1 a 13

Si Val(rs("IT" amp; i)) = 10 Entonces

zdm = "IT" amp; Salir para

Finalizar si

Siguiente

Si gt; 13 Entonces

MsgBox "¡No se encontró ningún nombre de campo coincidente!"

Else

MsgBox "El nombre del campo encontrado es " amp zdm

End If

End If

rs; .Cerrar

Establecer rs = Nada