Visual Basic - problemas con la sintaxis

holas, tengo problemas con una consulta..
tengo un formulario con varios criterios de consultas, uno de ellos se hace por el numero de documento de identidad "DocId", pero al realizar la consulta me da el siguiente error..:

"Error 3075 en tiempo de ejecucion:
...error de sintaxis en la cadena en la expresion de consulta 'DocId=79737938"

al depurarlo el cursor se ubica sobre la sentencia refresh... y no se que puedo tener mal... este es el codigo...

ElseIf optDoc.Value = True Then
VALOR = InputBox("ESCRIBA EL NUMERO Y PRESIONE ACEPTAR ")
Data1.RecordSource = "SELECT * FROM TABLAAFILIADOS WHERE DOCID=" & VALOR & "'"
Label2.Caption = Data1.Recordset.RecordCount
Data1.Refresh

Prueba eliminando lo último & "", por lo menos a mí me funciona bastante bien. lo otro que hago es almacenar la consulta en alguna variable:
Entoneces con la primera opción quedamos :
Where DOCID=" & Valor (Es igual la Segunda, solo se la asignamos a una variable)
La Otra Opción:
* oJo con el apostrofe
"... Where 'DOCID=" & Valor & "'"