Visual Basic - problemas de 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 a quitar el "&" de despues de valor asi como las comillas que tambien van detras, si Docid es un Char deberias pasarle comillas simples al valor, entonces si que deberias poner el "&" y las comillas.

sabes que en ese caso debes colocar asi :

Data1.RecordSource = "SELECT * FROM TABLAAFILIADOS WHERE DOCID='" & VALOR & "''"

pero veo que estas haciendolo mal porque no mejor programas con codigo de esa manera es mas facil y te evitas errores, si estas interesado avisame te puedo ayudar