No Current Row Available

[rkoch3]

Kept getting this message... Win98, VB6 sp4, ADO 2.5:

When using DataGrid that came with VB6, upon exiting the form with the DataGrid embedded in there, message kept saying, "The current row is not available".

My question would be why is it spitting out that gol'darned Msg every time I exit the form?

Command1_Click event:
frmRecordLabelGrid.Show vbModal
Set frmRecordLabelGrid = Nothing

Entire frmRecordLabelGrid code:

Option Explicit
Dim clsSE As CSongEntry

Private Sub Form_Load()
Set clsSE = New CSongEntry
clsSE.SQL = "SELECT * FROM RECORD_LABEL order by label_name"
Set DataGrid1.DataSource = clsSE.GetRecordset
DataGrid1.Columns(0).Visible = False 'hide identity field
DataGrid1.Visible = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set clsSE = Nothing
End Sub