Tengo problemas con sentencia SQL

El proyexto consiste en un dbcombo que filtra una base de datos poniendo los datos en un dbGrid.
El otro paso es poner en el MSFlexgrid esos datos filtrados con una nueva condición [Cobradas]=NO
Pero me sale el error, ¿dónnde estoy fallando?
Private Sub DBComboProveedor_Click(Area As Integer)
' Cargo el dbGrid
If Area = dbcAreaList Then
DataProveedor.Recordset.Bookmark = DBComboProveedor.SelectedItem
DataAlbaranes.RecordSource = "SELECT * FROM [Albaranes] WHERE [Proveedor] = '" & DataProveedor.Recordset("Proveedor") & "'"
DataAlbaranes.Refresh
End If
DataAux.RecordSource = "SELECT * FROM [Albaranes] WHERE [Proveedor] = '" & DataProveedor.Recordset("Proveedor") & "'" And [Cobradas] = "&NO& " '"
DataAux.Refresh
With DataAux.Recordset
.MoveLast
'Calculo filas y columnas
MSFlexGrid1.Rows = .RecordCount + 1
MSFlexGrid1.Cols = .Fields.Count
.MoveFirst
'Recorro fila 0 del MSFlexgrid y pongo los Títulos
For Colu = 0 To .Fields.Count - 1
MSFlexGrid1.TextMatrix(0, Colu) = .Fields(Colu).Name
Next
fila = 1
'Recorro los campos de una calumna metiéndolos en el MSFlexgid
Do While Not .EOF
For Colu = 0 To .Fields.Count - 1
MSFlexGrid1.ColAlignment(Colu) = vbCenter
MSFlexGrid1.TextMatrix(fila, Colu) = .Fields(Colu).Value
Next
fila = fila + 1
.MoveNext
Loop
End With
End Sub

{"Lat":39.3682791491601,"Lng":-3.515625}