URGENT: adding records locks up grid

I have a form with a sheridan grid bound to a class module with an add and a save button on it. When I add a record I can no longer select on the grid. Also deleting does not work properly. Help!!!!
TIA.
Code is as follows:

form:
Option Explicit
Dim clsData As New dat 'dat is the class module

Private Sub Form_Load()
With clsData
    Set .FormName = Me    'pass in the current form
    Set .rst = DE.rscmdFundSource ' a command "select * from..."
End With
clsData.rst.Open
SSOleDBGrid1.DataSource = clsData
SSOleDBGrid1.DataMember = "MaintData"
End Sub

Private Sub SSOleDBGrid1_Click()
Text1 = clsData.rst!fundsource 'text1 is a textbox on the form  used to show which record is selected.
End Sub


Private Sub cmd_Click(Index As Integer)
If Index = cb_save Then
    clsData.ProcessCMD Index, SSOleDBGrid1
Else
    clsData.ProcessCMD Index, SSOleDBGrid1
End If
End Sub


class module:
Option Explicit
Public Enum COMMANDBUTTONS
cb_ADD
cb_save
cb_CANCEL
cb_DELETE
cb_CLOSE
cb_REFRESH
cb_NEXT
cb_FIRST
cb_LAST
cb_PREVIOUS
cb_INIT
End Enum
Dim m_rst As ADODB.Recordset
Private m_frm As Object 'local copy

Public Property Set rst(ByVal vData As Variant)
    Set m_rst = vData
End Property

Public Property Get rst() As Variant
    If IsObject(m_rst) Then
        Set rst = m_rst
    Else
        rst = m_rst
    End If
End Property

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Set Data = m_rst
End Sub

Private Sub Class_Initialize()
DataMembers.Add "MaintData"
End Sub

Public Property Set FormName(ByVal vData As Object)
    Set m_frm = vData
End Property

Public Sub ProcessCMD(Index As Integer, grd As SSOleDBGrid, Optional bFormValid As Boolean, Optional txt As TextBox)

Dim iButton As Integer
Dim iCnt As Integer
Dim varBookmark As Variant
'qqq On Error GoTo ErrorHandler

Select Case Index

 Case cb_ADD  '-- add a new record
    m_rst.AddNew
    'grd.Enabled = True
Case cb_save '-- save the current record
    m_rst!fundsource = Form1!Text1
    m_rst.Update
    m_rst.Requery
   grd.ReBind
'    'varBookmark = m_rst.Bookmark
'    grd.Bookmark = varBookmark
Case cb_CANCEL
    m_rst.CancelUpdate
    m_frm.Controls("lbl") = "View Mode"
Case cb_DELETE  '-- delete the current record
    m_frm.Controls("lbl") = "Delete Mode"
    iButton = MsgBox("Are you sure you want to Delete?", vbYesNo, "Delete Conformation")
    If iButton = vbYes Then
        m_rst.Delete
        m_rst.Requery
    Else
        m_rst.CancelUpdate
    End If

End Select
End Sub

schoonAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

rovermCommented:
Try disconnecting the grid from the datasource and reconnecting it again (before adding).
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
schoonAuthor Commented:
Disconnecting it when?
0
schoonAuthor Commented:
and how do i do that?
0
The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

rovermCommented:
By setting the recordsource to nothing.
Or closing your dataset.
Pick one !
0
schoonAuthor Commented:
That was easy!
Thanks a bunch. I spent 3 days going nuts over this one.
0
rovermCommented:
You're welcome !
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.