DataGrid

[kaylu_mo]

here i've got problem with datagrid....as i was not solving using datacontrol but using a recordset actually i've two datagrid n just to display from the click event of lstPupils so this error somes....as code is stated as below...

Private Sub lstPupil_Click()
    Dim intID As Integer
    
   Call data_connection
    
    intID = CInt(lstPupil.ItemData(lstPupil.ListIndex))
    
    strSQL = "SELECT Description FROM tblCompetency WHERE Code NOT IN(SELECT Code FROM tblPass WHERE ID= " & CStr(intID) & ")"
    
    Set rsCom1 = gconn.Execute(strSQL)
    'rsCom.Open strSQL, gconn, adOpenKeyset, adLockOptimistic, adCmdText
    
    Set DataGrid1.DataSource = rsCom1  Error here...[COLOR=Red]The rowset is not bookmarkable
    [/COLOR] 
    
    strSQL = "SELECT Description FROM tblCompetency WHERE Code IN(SELECT Code FROM tblPass WHERE ID=" & CStr(intID) & ")"
    
    Set rsCom2 = gconn.Execute(strSQL)
    
    Set Me.DataGrid2.DataSource = rsCom2
    
    
    
End Sub

]

wat is there so plezz do help me