Erro em Select

Bom dia colegas

Está a dar um erro que nunca me tinha acontecido e já tentei de algumas formas e continua a dar erro.

Agradeço a vossa ajuda

é o seguinte:

Function NovoSocio() As String

Dim NumDisp As Integer

Dim NumExist As Integer

NumDisp = 0

NumExist = 0

While NumDisp = NumExist

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("select NumMembro from Membros where NumMembro= '" & NumDisp & "'", dbOpenDynaset)

If rs.EOF And rs.BOF Then

NumDisp = NumDisp + 1

Else

NumExist = NumDisp + 1

NumDisp = NumDisp + 1

End If

rs.Close

Wend

NovoSocio = NumDisp

End Function

Está dando erro na linha a negrito

Se eu substituir '" & NumDisp & "' por um número já funciona, presumo que o erro esteja aí, mas já utilizei dezenas de vezes assim e nunca deu erro.

O que poderá estar a acontecer?

Agradeço ajuda