'Diese Funktion sucht in String1 nach String2, entweder Case-Sensitiv oder 
' nicht Case-Sensitiv.
'Rückgabewert: 1 - der String2 kommt in String1 vor; 0 - String2 kommt nicht in 
' String1 vor.
Public Function compString(string1 As String, string2 As String, caseSensitiv _
  As Integer) As Integer
   Dim sPos, sResult As Integer
 
   sPos = InStr(string1, string2)
 
   If sPos > 0 And caseSensitiv = -1 Then
      sResult = StrComp(Mid(string1, sPos, Len(string2)), string2, _
        vbBinaryCompare)
   ElseIf sPos > 0 And caseSensitiv = 0 Then
      sResult = 0
   Else
      sResult = 1
   End If
 
   'Wenn sResult 0 ist wurde String2 in String1 gefunden
   If sResult = 0 Then
      compString = 1
   Else
      compString = 0
   End If
End Function

SELECT tblTXT_src.TAGName, tblTXT_src.ListIndex, tblTXT_src.forCCU AS CCU, _
  tblTXT_src.forJAVA AS JAVA, tblTXT_src.X_Text AS Default, tblTXT_src.D_text _
  AS Deutsch, tblTXT_src.E_text AS English
FROM tblTXT_src
WHERE compString( tblTXT_src.X_Text,"Test",1)=0;