Visual Basic - set MEN

Dim MEN As String
If MEN = Data6.Recordset.Fields("nrofacturas") Then
Data6.RecordSource = "SELECT * FROM consulta1 where nrofacturas = " & MEN & ""

eso lo hace bien con el primer valor que le meta en el MEN, luego no cambia la variable MEN, como la reseteo?? para que en realidad sea una variable

GRACIAS :)

Esto lo que tu planteas

Dim MEN As String
If MEN = Data6.Recordset.Fields("nrofacturas") Then
Data6.RecordSource = "SELECT * FROM consulta1 where nrofacturas = " & MEN & ""

Yo no te entiendo bien pero te digo que la variable al estar en una subrutina "se vuelve nada" o "cero" con el Dim, pero si colocas la variable en la parte general conserva valor.

Sub XXXX()
Dim MEN As String
Men="SS"
If MEN = Data6.Recordset.Fields("nrofacturas") Then
Data6.RecordSource = "SELECT * FROM consulta1 where nrofacturas = " & MEN & ""
end sub

Siempre va a valer "SS" la variable, pero si la pongo en la parte general puedo cambiarla.

Ok no entiendo del todo.

If MEN = Data6.Recordset.Fields("nrofacturas") Then
Data6.RecordSource = "SELECT * FROM consulta1 where nrofacturas = " & MEN & ""

ahi me sale un msgbox y yo meto un codigo ejm:10 quedaria:
Data6.RecordSource = "SELECT * FROM consulta1 where nrofacturas = 10
y todo bien, pero la segunda vez coloco otro codigo y no me lo agarra, solo si vuelvo a colocar el codigo 10.

lo que quiero es set la variable MEN para que se cambie de valor.

Será porque solo en el caso de que men sea=10 se cumple
If MEN = Data6.Recordset.Fields("nrofacturas").
Las comillas finales, ya que nrofacturas parece numérico, no se que pintan.
¿Como narices se mete un 10 en un Msgbox?
Pon mas código no se entiende nada.