Cuadro de lista

Tengo una consulta con 2 campos ARTÍCULOS Y EXPR2, quiero que me muestre el articulo y expr2, según la consulta
donde le corregirle a este código para que me salga el articulo y expr2
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 articulosc.NombreGenerico " _
& "FROM articulosc " _
& "WHERE articulosc.NombreGenerico LIKE '" & "*" & Me.txt_Buscar.Value & "*" & "' " _
& "ORDER BY articulosc.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