Visual Basic - No coinciden los datos en la expresion de criterio

Estimados.
Hace tiempo que no encuentro solucion a este problema.Cuando hago un SELECT COUNT de unos registros me dice que "no coinciden los datos en la exprecion de criterio.
La idea es que si un paciente fue atendido 6 veces en los ultimos 6 meses un label se haga rojo

Utilizo Acces, el campo Codigo_paciente es de tipo numero (entero largo de 15) .
Este es el codigo.

On Error GoTo error_Handler
Dim sSQL As String
Dim rst As New ADODB.Recordset
'' ¿ La conexión está abierta ?
If Base.State = adStateOpen Then
sSQL = "SELECT Count(*) as Total_Filas FROM Tablaconsulta WHERE [Codigo_paciente] ='" & Val(LblCodigopaciente.Caption) & "' AND Fecha BETWEEN Date()-180 AND Date();"
'' -- Ejecutar comando SQL con el método Execute
Set rst = Base.Execute(sSQL, , adCmdText)
'' -- Mostrar cantidad de registros
Label27 = rst("total_Filas")
If Label27 >= 6 Then
'Label27.BackColor = &HFF&
Else
Label27.BackColor = &HFFFFFF
End If
Set rst = Nothing
Else
MsgBox "No hay una conexion activa a la base de datos", vbExclamation
End If

PD: El select count con solo las fechas funciona bien el problema comienza al agregar el Codigo_paciente
Trate de hacerlo con un campo Dni que sea de tipo texto pero me dice " no coinciden los tipos"
sSQL = "SELECT Count(*) as Total_Filas FROM Tablaconsulta WHERE [Dni_paciente] ='" & TXTDnipaciente.Text & "' AND Fecha BETWEEN Date()-180 AND Date();"
Desde ya muchas gracias.
Saludos

Si el campo Codigo_paciente es de tipo String entonces prueba con :

...si es Numerico, entoces solo quitale las comillas que encierran a LblCodigopaciente.Caption

Muchas gracias Juan por tu tiempo, le saque las comillas y anduvo genial sos un genio.

Dim FechaAnterior as date
FechaAnterior=DAteAdd("d",-180,Now)
dim FechaActual as date
FEchaActual=Now

sSQL = "SELECT Count(*) as Total_Filas FROM Tablaconsulta WHERE [Codigo_paciente] =CInt(' " & LblCodigopaciente.Caption & ")' " & " AND Fecha BETWEEN " & "#" & FechaAnterior & "# And #" & FechaActual & "#"

Y ese CInt pa' que lo necesitas? ... simplemente quita las comillas
Otra cosa... esta mal armada la funcion, checa la comilla fuera del parentesis final de CInt