>Dear Sir,
>
>Please suggest/Advise how to find recordset which are unclosed. I need a utility to find out. if possible I can code it.
>
>As it is common mistake may that after opening a recorset we forget to close it.
>
>To avoid that please help.

Hmmm.., you also probably have other "common mistakes" like forget to close connection or something similar. The sooner you improve the coding the better. Anyway, see if this is what you need:

....
rstAccess = CreateObject("ADODB.Recordset")
......
       If Not IsNothing(rstAccess) Then
            If rstAccess.State > 0 Then
                rstAccess.Close()
            End If
        End If
.......