List problem

[kaylu_mo]

here i've got a problem i was just trying with my assesment so...
here i was doing my problem using listview but actually i didn't get mush knowledge bout listview till then i wanna just get u alls help...i've got to option button using control array so i was to display when i click on option buttons so here is my code with error ya so just plezz help me ya...
again when i compile the program error comes like this ...Operation is not allowed when the object is open c this also plezzz...

Private Sub optSelect_Click(Index As Integer)
    Dim TItem As ListItem
    
    Call data_connection
    
    strSQL = ""
    strSQL = "SELECT * FROM tblCustomer"
    
    Set rsLv = gconn.Execute(strSQL)
    
    'rsLv.Open strSQL, gconn, adOpenKeyset, adLockOptimistic, adCmdText
    
    Select Case Index
 
        Case 0
            MsgBox rsLv("fldFirstName")
            While Not rsLv.EOF
                Set TItem = lvwCust.ListItems.Add(, , rsLv("fldFirstName") & " " & _
                    rsLv("fldFamilyName"))
                    rsLv.MoveNext
 
             Wend
 
        Case 1
            MsgBox rsLv("fldSuburb")
            Do Until rsLv.EOF
                'Set TItem = lvwCust.ListItems.Add(, , rsLv("fldSuburb"))
                            Set TItem = lvwCust.ListItems.Add(, , rsLv("fldFirstName") & " " & _
                rsLv("fldFamilyName") & " ( " & rsLv("fldSuburb") & ")")
                rsLv.MoveNext
 
            Loop
 
    End Select
    
        
            
End Sub