strSQL = "INSERT INTO AKTUELLE_BARREN (BNR, LOS, TLOS, LNR, AP_NR" & _
") VALUES ('" & SQLExpr(strBNR) & "', '" & strLOS & "', '" & strTLOS & _
"', '" & strLNR & "', '" & strVal(1) & "', '" & strVal(2) & "', '" & strVal(3) _
& _ 
 
Public Function SQLExpr(ByVal sExpr As String) As String
  Dim sPos As Integer
 
  sPos = -1
  Do
    sPos = InStr(sPos + 2, sExpr, "'")
    If sPos > 0 Then
      sExpr = left$(sExpr, sPos) + "'" + Mid$(sexpr, sPos + 1)
    End If
  Loop Until sPos = 0
 
  SQLExpr = sExpr
End Function