Buscar en un cuadro de lista

Quiero que me muestre los 2 campos que tengo en la tabla
tengo este codigo:
Option Compare Database
Dim Var As String
Dim db As DAO.Database, rs As DAO.Recordset
Private Sub txt_Buscar_LostFocus()
Var = ""
ActualizaLista
Var = "SELECT DISTINCT Medicamentos.NombreGenerico " _
& "FROM Medicamentos " _
& "WHERE Medicamentos.NombreGenerico LIKE '" & "*" & Me.txt_Buscar.Value & "*" & "' " _
& "ORDER BY Medicamentos.NombreGenerico"
Set db = CurrentDb()
Set rs = db.OpenRecordset(Var)
If rs.RecordCount > 0 Then
ActualizaLista
Else
MsgBox "No se encontro la palabra tecleada", vbOKOnly, "aviso"
Me.BtnSalir.SetFocus
Me.txt_Buscar.SetFocus
End If
rs.Close
Set db = Nothing
End Sub
Sub ActualizaLista()
Me.Lista.RowSource = Var
Me.Lista.Requery
End Sub
Private Sub BtnSalir_Click()
DoCmd.Close
End Sub