Error en la conexión

Me aparece un error al tratar de obtener los datos donde legalización = a lo que tiene el label el dato de legalización es de tipo numérico.
Private Sub Command1_Click()
Set Rec3 = New ADODB.Recordset
    With Rec3
        Set .ActiveConnection = Con
        .CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Source = "select * from RECIBOS where LEGALIZACION = " & lblLegalizacionNo.Caption & ""
        .Open
    End With
    Set DataGrid1.DataSource = Rec
End Sub