visning af dobbeltposter

Jeg har et program der ovf. poster fra access til exel. Dette gøres via  tlfnr. Der gives en meddelelse hvis der er flere poster med samme tlfnr. Kan disse poster vises og evt. vælges imellem?
Jeg prøver at vedlægge programmet.
Sub Kunde()
tlfnr = InputBox("indtast tlfnr")
    Dim objConn As ADODB.Connection
    Dim objRS As ADODB.Recordset
    Dim strConnString As String
    Dim strSQL As String

    Set objConn = New ADODB.Connection
    Set objRS = New ADODB.Recordset
   
    strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\dokumenter\kartoteker.MDb"
    objConn.Open strConnString
   
    strSQL = "SELECT Kundenr,Navn1, Adresse, postby FROM kundekartotek WHERE tlfnr = " & tlfnr
    objRS.CursorType = adOpenStatic
    objRS.Open strSQL, objConn
   
    If objRS.recordcount > 1 Then
  MsgBox "Der er flere konti med samme tlfnr"
End If

    If Not objRS.EOF Then
       
        Range("A1") = objRS("Kundenr")
        Range("a2") = objRS("Navn1")
        Range("a3") = objRS("Adresse")
        Range("a4") = objRS("postby")

objRS.Close
    objConn.Close

Else
    MsgBox "tlfnr. findes ikke"
   
    End

End If

End Sub