Wert in DB schreiben

'''' <summary>
''' Schreibt ungeprüft den Wert eines Datenfeldes in die DB
''' </ summary>
''' <param name="table">In welche Tabelle ist zu schreiben? </ param>

''' <param name="field">In welches Datenfeld ist zu schreiben? </ param>
''' <param name="value">Welcher Wert ist in dieses Feld zu schreiben? </ param>
''' <param name="ID">Nur wenn ID- Spalte existiert: Wie lautet die ID? </ param>

''' <returns>Erfolgsmitteil ung (wahr oder falsch). </ returns>
''' <remarks>Nur für Tabellen, die ID enthalten, wird die Zeilenangabe ausgewertet; ID muß angegeben werden.
''' Bei ID="" wird in die _Saveguard- True- Zeile geschrieben. </ remarks>

Public Function DBSetValue( _
ByVal table As TMserverDBTables, ByVal field As String, ByVal value As String, Optional ByVal ID As String = "") _
As Boolean
Dim tableName As String = NameOfTable(table)
'If table Is Nothing Then
' log. Fault("DBSetValue", "Ungültiger Tabellenname")

' Return Nothing
'End If
Dim sqlStatement As String
If ID = "" Then
'Schließe die falschen Tabellen aus
If (table And 1) = 0 Then

log. Fault("DBSetValue", "Tabelle " & tableName & " nicht als Argument zugelassen")
Exit Function
End If
sqlStatement = "UPDATE " &amp; tableName & " SET " &amp;amp; field & " = '" & value & "' WHERE _LineGuard = 'True'"

Else
sqlStatement = "UPDATE " &amp;amp; tableName & " SET " &amp;amp; field & " = '" & value & "' WHERE ID = " & ID & ""

End If
'log. Test("DBSetValue", sqlStatement)
Dim result As Integer = doSql(sqlStatement, QueryReturns. Count)
'log. Test("DBSetValue", result. ToString)
If result <> 1 Then

log. Fault("DBSetValue", "Der Wert konnte nicht in die Datenbank geschrieben werden. " _
& vbCrLf & "Tabelle: " & tableName & " ID: " & ID & " Feld: " & field & "Wert: " & value _

& vbCrLf & result & " Zeilen wurden geändert. ")
Return False
End If
Return True

End Function