Listboks udfylde og slette

Jeg har en form, hvor jeg har et felt hvor jeg skriver et søgekriterier. Derefter trykker jeg på en knap for at udfylde min listbox. Jeg bruger følgende kode.

Dim mydb As DAO.Database
  Dim rstVare1 As DAO.Recordset
  Set mydb = CurrentDb()
  If Me!SoegeKrit <> "" Then
      'OK der kan arbejdes
      Set rstVare1 = mydb.OpenRecordset("SELECT * FROM [T_Varer]WHERE [Varenavn] Like '*" & Me!SoegeKrit & "*'")
      If Not rstVare1.EOF Then
        rstVare1.MoveFirst
        Do While Not rstVare1.EOF
            SoegRes.AddItem rstVare1!Varenummer
            SoegRes.AddItem rstVare1!Varenavn
            rstVare1.MoveNext
        Loop
      End If
    End If

Den fylder listboksen, men ikke i 2 kolonner, som jeg gerne vil have.

Når listboksen er fyldt, vælges et element og formularen udfyldes, derefter vil jeg gerne have alle elementer i listboksen slettet, så den er klar til næste gang.