Lege til en variabel i strSQL , DataGrid

Hei,
Jeg har en:
strSQL="SELECT Kunde.KundeID, Kunde.Status, Kunde.KontaktPerson,' " & ReturnStr & " ', Kunde.Notat"
Til brug i datagrid.

Jeg skal søge i mrs.Fields(4) efter "*NaN*" for at skrive ind i .columns(3) ReturnStr, .columns(4) er visible=False
Når jeg bruger: 
Dim ReturnStr As String
ReturnStr = "PP"
er alt OK

Jeg har prøvd:
If mrs.Fields(4).Value Like "*NaN*" Then
    ReturnStr = "PP"
Else
    ReturnStr = "YY"
End If

men den blir forkert.
Er det noen som kan hjelpe her?

MVH Terra