Access - Codigo Buscador

Hola Neckkito.

El combox solo muestra el campo DNI y los dos campos de la tabla son de tipo texto.

Con las modificaciones que me has aconsejado el Código me ha quedado como sigue pero me da error.

Private Sub DNI_AfterUpdate()
On Error GoTo Err_Procedimiento

Dim strDNI As String
Dim strTabla As String
Dim strFiltro As String
Dim vFactura As String

'¿Hay datos válidos ingresados?
strDNI = Trim(Nz(Me.DNI, ""))
vFactura = Me.DNI.Column(1)

If strDNI = "" Then

'limpio los datos
Me.Factura = Null
Me.Post = Null

Else

'defino los datos para realizar la búsqueda de datos
strTabla = "GENERAL"
strFiltro = "DNI = '" & strDNI & "'" And [Factura] = " vFactura"

'obtengo y asigno los datos que me interesan

'Me.Factura = Nz(DLookup("Factura", strTabla, strFiltro), "")