Row handles must all be released before new ones can be obtained

  Dim rs3 As New ADODB.Recordset
        Dim da As OleDbDataAdapter = New OleDbDataAdapter()
        Dim myDS = New DataSet("MyTable")
        Dim strSQL As String
        strSQL = "select prtynm from prtydtl"
        rs3.Open(strSQL, con, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        If Not rs3.EOF Then
            da.Fill(myDS, rs3, "MyTable")
            prtynmDataGrid.RowHeadersVisible = False
            prtynmDataGrid.DataSource = myDS
            prtynmDataGrid.DataMember = "MyTable"
            'count = prtynmDataGrid.RowCount
        End If
        rs3 = Nothing