Vise søgeresultat i Listbox

Hej

Vha en "gammel" kode fra VBA forsøger jeg i en VB .Net windows applikation at vise et søgeresultat i en listbox. Den søger umiddelbart rigtigt men viser kun det første resultat og jeg har på fornemmelsen at: "On error resume next" nok ikke er den bedste kode at anvende ;0)
Hvorledes kan det gøres bedre og hvad er der ellers galt med koden?

NB! Det er sammensætningen af 3 tabeller der gør koden lidt uoverskuelig - Sorry!)

vh Steen

        On Error Resume Next
        Dim strSQL As String
        Dim Conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim IBox As String, txt As String

        IBox = InputBox("Indtast søgestreng")

        Conn = New ADODB.Connection
        rs = New ADODB.Recordset

        Conn.Open("Provider=sqloledb;" & _
              "Data Source=SERVER;" & _
              "Initial Catalog=PatientregisteretSQL3;" & _
              "Integrated Security=SSPI;")

        txt = "SELECT [Patient nr], Mors, [CPR nr], Fornavn, Efternavn, Adresse, [Postnr og bynavn], Telefon, [INDKALDELSE DATO], UGEDAG, [KLOKKESLÆT], [Egen læge], [Lægens adresse], [Lægens postnr og by], [Henvisende Sygehus], [Att henvisende], AMT, [Ugedag Amb], Amb, Kl, [Indlæggelsesdiagnose], [behandlingsdiagnose 1], [behandlingsdiagnose 2], [REf nr (Norgept)], [Operations dato], [Operation type], [Ægtefelles navn], Udskrivelse, Kode, Kommunekoder, PræDato, PræTid, PræDag FROM RFA WHERE [Cpr nr] LIKE '" & IBox & "%'"
        txt = txt & " UNION SELECT [Patient nr], Mors, [CPR nr], Fornavn, Efternavn, Adresse, [Postnr og bynavn], Telefon, [INDKALDELSE DATO], UGEDAG, [KLOKKESLÆT], [Egen læge], [Lægens adresse], [Lægens postnr og by], [Henvisende Sygehus], [Att henvisende], AMT, [Ugedag Amb], Amb, Kl, [Indlæggelsesdiagnose], [Behandlingsdiagnose 1], [Behandlingsdiagnose 2], [REf nr (Norgept)], [Operations dato], [Operation type], [Ægtefelles navn], Udskrivelse, Kode, Kommunekoder, PræDato, PræTid, PræDag FROM [PCI og KAG] WHERE [Cpr nr] LIKE '" & IBox & "%'"
        txt = txt & " UNION SELECT [Patient nr], Mors, [CPR nr], Fornavn, Efternavn, Adresse, [Postnr og bynavn], Telefon, [INDKALDELSE DATO], UGEDAG, [KLOKKESLÆT], [Egen læge], [Lægens adresse], [Lægens postnr og by], [Henvisende Sygehus], [Att henvisende], AMT, [Ugedag Amb], Amb, Kl, [Indlæggelsesdiagnose], [Behandlingsdiagnose 1], [Behandlingsdiagnose 2], [REf nr (Norgept)], [Operations dato], [Operation type], [Ægtefelles navn], Udskrivelse, Kode, Kommunekoder, PræDato, PræTid, PræDag FROM [EKKO] WHERE [Cpr nr] LIKE '" & IBox & "%'"
        txt = txt & " UNION SELECT [Patient nr], Mors, [CPR nr], Fornavn, Efternavn, Adresse, [Postnr og bynavn], Telefon, [INDKALDELSE DATO], UGEDAG, [KLOKKESLÆT], [Egen læge], [Lægens adresse], [Lægens postnr og by], [Henvisende Sygehus], [Att henvisende], AMT, [UGEDAG amb], AMB, KL, [Indlæggelsesdiagnose], [Behandlingsdiagnose 1], [Behandlingsdiagnose 2], [REf nr (Norgept)], [Operations dato], [Operation type], [Ægtefelles navn], Udskrivelse, Kode, Kommunekoder, PræDato, PræTid, PræDag FROM Kartotek WHERE [Cpr nr] LIKE '" & IBox & "%'"

        strSQL = txt

        rs.Open(strSQL, Conn)
        rs.MoveFirst()

        While Not rs.EOF
            Form4.ListBox1.Items.Add(rs.GetString)
            rs.MoveNext()
        End While
        Form4.Show()

        rs = Nothing

    End Sub