RE:Respondiendo la pregunta de Papo
Gracias por la ayuda, mira no me gusta hacer sentir mal a nadie(no soy como quique); pero ya encontre la solucion y eran unas cuantas comillas simples:
Asi estaba:
Private Sub Command1_Click()
Dim strSQLMes As String
Dim strSQLUsuario As String
Dim strConfirma As String
If optImprimir.Value = True Then
mensaje$ = "Introdusca el mes a consultar"
Mesaje2$ = "Introdusca el año a consultar"
strConfirmaMes = InputBox(mensaje$, "Buscar Mes")
strConfirmaAño = InputBox(Mensaje2$, "Buscar año")
strSQLMes = "SELECT * FROM REQUISICION WHERE MES=" & strConfirma
adoPasoRequis.RecordSource = strSQLMes
adoPasoRequis.Refresh
Set DataGrid1.DataSource = adoPasoRequis
DataGrid1.ReBind
'Unload frmImprimir
End If
If optImprimirUsuario.Value = True Then
mensaje$ = "Introdusca el usuario que desea consultar"
strConfirma = InputBox(mensaje$, "Buscar por Usuario")
strSQLUsuario = "SELECT * FROM REQUISICION WHERE USUARIO=" & strConfirma
adoPasoRequis.RecordSource = strSQLUsuario
adoPasoRequis.Refresh
Set DataGrid1.DataSource = adoPasoRequis
DataGrid1.ReBind
'Unload frmImprimir
End If
End Sub
Y queda en la parte de la consulta asi:
strSQLMes = "SELECT * FROM REQUISICION WHERE MES=' " & strConfirma & " ' "
adoPasoRequis.RecordSource = strSQLMes
adoPasoRequis.Refresh
Set DataGrid1.DataSource = adoPasoRequis
DataGrid1.ReBind
Si puedes darte cuenta despues del signo = hay una commilla, luego otro & despues de la variable strConfirma y luego dos comillas, una simple y dos comillas y solo asi me pudo añadir la dato de tipo string a la variable y todo esto por que cambia a esta forma por la version del BV6 con el Access 2003, sobre todo por que esto no me pasaba ni con Office 2000.
Esta forma de consultas la saque de un libro de los de aprenda BV6 en 21 dias
espero a ti tambien te sirva en futuros programas que realices y de todos modos gracias y que tengas un buen dia y haber si quique desea aprenderselo tambien.