Move through columns in recordset 1

[44nato44]

Hi

I need to move through my columns in a table and I do not want to write down each column header, is there not a smart way to go around this ?

I use this tblRst.FindNext "[All_Prod_Code].. to find a certain value.. instead of [All_Prod_Code] there must be a good way of doing this

This is my code below :

Do While Not tblRst.EOF
tblRst.FindNext "[All_Prod_Code] = '" & tblRstChk("Check") & "'"

If .NoMatch = False Then
.Delete
tblRst.MoveFirst
Else
tblRst.MoveNext
End If
Loop

Cheers everybody, appreciate your help

 

[Remou]

As in:

For Each fld In rs.Fields
    Debug.Print fld.Name
Next

Using DAO Recordset

http://lessthandot.com

 

[44nato44]

Thanks.. I knew there must be something easy

Thanks alot