Unable to do UPDATE

[frimily]

M new here.I try to do change my password but unable to change it... The error is the one i put in italic,mentioning Object Variable required... may i know what goes wrong with my code..Please help .Thank you.

....[ If Not CheckPass_Rs.BOF Then
            CheckPass_Rs.MoveFirst
            str_Password = CheckPass_Rs!Password
            If Trim$(UCase$(Old_Tbox.Text)) <> str_Password Then
                MsgBox "Invalid old password"
                Old_Tbox.Text = ""
                NewPass_Tbox.Text = ""
                Verify_Tbox.Text = ""
                Old_Tbox.SetFocus
            Else
                [I]oSQL[/I].Execute "UPDATE UserMaster SET Password = '" & UCase$(NewPass_Tbox.Text) & "' where User_Id = '" & UCase$(UID_Tbox.Text) & "'"
Call MsgBox("You have successfully chosen a new password", vbInformation, "Password Changed")
            End If
        End If