Public Function SQLExpr(ByVal Text As String) As String
  Dim sPos As Integer
 
  Do
    sPos = InStr(sPos + 2, Text, "'")
    If sPos > 0 Then
      Text = left$(Text, sPos) + "'" + Mid$(Text, sPos + 1)
    End If
  Loop Until sPos = 0
 
  SQLExpr = Text
End Function

"SELECT * FROM tblBestellungen WHERE tblBestellungen.Schiff = '" & SQLExpr( _
  Me.dcbSchiff.Text) & "'"