I am navigatin through the record
NOTE :rsopen is an boolean variable and determines whether the record set is open or not rsopen = true means recordset is open
and right now ignore the parmaters that the rs_movenext and rs_moveback have.
table has only 2 records right now

Code:
Private Sub cmd_frm_pdev_add_Click(Index As Integer)
ElseIf cmd_frm_pdev_add(a + 1).Caption = "GO" Then
                        vmon = dtp_frm_pdev_pt.Month
                        vyear = Right(dtp_frm_pdev_pt.Year, 2)
                        dmon = vmon + "-" + vyear
                        qrystring = " select dmeeting,remarks from parent_teacher_meeting where substr(dmeeting,4,5) = '" & dmon & "' and student_id = '" & Val(txt_frm_pdev_studentid) & "'"
                        If rsopen = True Then
                            rs.Close
                            rsopen = False
                        End If
                        rs.Open qrystring, oconn
                        rsopen = True
                        If rs.EOF = False Then
                            dtp_frm_pdev_pt = CDate(rs.Fields(0).value)
                            txt_frm_pdev_comments = rs.Fields(1).value
                            'rs.Close
                            setctl_go (a + 1)
                        Else
                            rec_not_found
                            If rsopen = True Then
                                rs.Close
                                rsopen = False
                            End If
' Clear
                            Exit Sub
                        End If
end sub

Private Sub cmd_navl_Click(Index As Integer)
    n = SSTab1.Tab
    pichla rs, qrystring, n
End Sub

Private Sub cmd_navr_Click(Index As Integer)
    n = SSTab1.Tab
    rs_movenext rs, qrystring, n
End Sub

Private Sub rs_movenext(ByVal rs As ADODB.Recordset, ByVal qry As String, ByVal n As Integer)
    If rsopen = True Then
        If rs.EOF = False And rs.BOF = False Then
            Select Case n
                Case 1
                    rs.MoveNext
                    dtp_frm_pdev_pt = CDate(rs.Fields(0).value)
                    dmon = rs.Fields(0).value
                    txt_frm_pdev_comments = rs.Fields(1).value
                Case Else
            End Select
        End If
     End If
End Sub

Private Sub rs_moveback(ByVal rs As ADODB.Recordset, ByVal qry As String, ByVal n As Integer)
    If rsopen = True Then
        If rs.BOF = False Then 'And rs.EOF = True Then
            Select Case n
                Case 1
                    rs.MovePrevious
                    dtp_frm_pdev_pt = CDate(rs.Fields(0).value)
                    dmon = rs.Fields(0).value
                    txt_frm_pdev_comments = rs.Fields(1).value
                Case Else
            End Select
        End If
    End If
End Sub


the function rs_movenext works fine but it gave me error in rs_moveback at the line which is bold. whether the rs_movenext has been called before this or not.
Run time error "operation is not allowed in this context. "
rs is the global veriable (for this form)
I searched the msdn (internet) but can't find any reason & possible solution
Private Sub cmd_frm_pdev_add_Click(Index As Integer) is the function that builds the rs

Sounds like you have the wrong cursor type. When you use syntax like this
to open a recordset you get the default forward-only cursor (so you can't MovePrevious)
change it to another cursor type, for example

Lets Suppose I have 2 records (the query in the above code return these)
one for the date 31-01-99
and ohter for 29-02-99
now say the first record it shows is 31-01-99
then press move next button it showed me the next record , If I again press the movenext buton it gives me error
"Either EOF or BOF is true, or the current record has been deleted, Requested operation requires the surrent recoed"
Same is the case with moveback buuton
Now How Can I remove this error (Plz refer to the code(rs_movenext , rs_moveback) I've given above and consider the line "rs.Open qrystring, oconn " as
 "rs.Open qrystring, oconn, adOpenStatic")