strTable: Tabellenname
strDsn: Datensatznummer
strFieldName: Feldname
Rückgabewert: = True, wenn der Wert gesetzt werden konnte, sonst = False


Public Function Sql_SetField(ByVal strTable As String, strDsn As String, strFieldName As String, varValue As Variant) As Boolean
    Dim rs As ADODB.Recordset
    Dim strSQL As String

    Sql_SetField = False
    strSQL = "SELECT * FROM " & strTable & " WHERE dsn=" & m_oUtil.SqlUid(strDsn) & " "
    Set rs = FF_GetRecordset(strSQL)
    If Not rs.EOF Then
        rs(strFieldName) = varValue
        FF_UpdateRecordset rs
        Sql_SetField = True
    End If
    Set rs = Nothing
End Function