Visual Basic - espero que alguien pueda ayudarme

hola a todos, observen este código...

Set conImportCtas = New ADODB.Connection
conImportCtas.ConnectionString = "DSN=JMAS;SYSTEM=JMAS;CMT=0;DBQ=FACTULIB;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RECBLOCK=2;BLOCKSIZE=256;SCROLLABLE=0;TRANSLATE=1;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=2;SORTTYPE=0;LANGUAGEID=ENU;SORTWEIGHT=0;PREFETCH=0;DFTPKGLIB=QGPL;MGDSN=0;"

conImportCtas.Open
Dim rstImportCtas As ADODB.Recordset
Dim strImportCtas As String

Set rstImportCtas = New ADODB.Recordset
rstImportCtas.ActiveConnection = conImportCtas
rstImportCtas.CursorType = adOpenStatic
rstImportCtas.LockType = adLockReadOnly
rstImportCtas.CursorLocation = adUseClient

rstImportCtas.Open "Select * From UsuarLrt Where SECT = 2", conImportCtas, adOpenDynamic, adLockOptimistic

con este código el problema que tengo es que en la parte enseguida de open ("Select * From UsuarLrt Where SECT = 2") donde SECT = 2, este valor quiero que sea el usuario final quien le asigne el valor, pero no se como quedaria la expresión, no se si deba hacer alguna cadena, pero como la asigno????

de antemano muchas gracias.......

Te doy como a mi me gusta hacerlo:
Dim strSQL, ValorUsuarioFinal
Valor UsuarioFInal = 2
strSQL = "Select * From UsuarLrt Where SECT = " & ValorUsuarioFinal & ";"
rstImportCtas.Open strSQL, conImportCtas, adOpenDynamic, adLockOptimistic

Espero que te sirva

bueno creo que lo que debes hacer es obligar al usuario a que introduzca el valor en un txtbox o algo asi y luego asignarselo al select ej. select=nomVar.

espero te sirva, si no bueno se intento