Dobbeltposter i data ovf fra acces til exel. hjælp!!

Jeg er gået helt i sort...jeg har et program der ovf data fra acces til exel...Der tastes et tlfnr som søgekriterie og posten som tlfnr. peger på overføres til exel..mit problem er så at der er flere poster der har samme tlfnr..dette vil jeg opfange, og give brugeren mulighed for at vælge hvilken post der skal af posterne med det samme tlfnr der skal overføres. Kan det evt. gøres med noget recordcount evt?
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.Open strSQL, objConn
       
    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