Public Function read_Autonum() As String
 
If RS_system.State = adStateOpen Then RS_system.Close
RS_system.Open "SELECT * FROM system WHERE text = 'Autonum' ORDER BY wert ASC", _
  Conn, _
     adOpenDynamic, adLockReadOnly
 
If RS_system.RecordCount > 0 Then
    read_Autonum = RS_system("wert")
Else
    read_Autonum = ""
End If
 
RS_system.Close
 
End Function

Public Sub write_Autonum(Nummer As String)
On Error GoTo fehler
 
Dim wert As String
 
If RS_system.State = adStateOpen Then RS_system.Close
 
RS_system.Open "SELECT * FROM system WHERE text = 'Autonum'", Conn, _
  adOpenDynamic, adLockOptimistic
 
'Sicherheitshalber...
If RS_system.RecordCount > 1 Then
    RS_system.Close
    RS_system.Open "DELETE FROM system WHERE text = 'Autonum'", Conn, _
      adOpenDynamic, adLockOptimistic
    RS_system.Open "SELECT * FROM system WHERE text = 'Autonum'", Conn, _
    adOpenDynamic, LockOptimistic
End If
 
'Neuanlage, falls es noch nix gibt
If RS_system.RecordCount < 1 Then
    RS_system.AddNew
    RS_system.Fields("text") = "Autonum"
    RS_system.Update
End If
 
RS_system.Close
 
wert = Trim(Nummer)
RS_system.Open "UPDATE system SET wert = '" & wert & "' WHERE text =" & _
  "'Autonum'", Conn, adOpenDynamic, adLockOptimistic
 
GoTo ausgang
 
ausgang:
On Error GoTo 0
Exit Sub
 
fehler:
ShowErrMsg
Err.Clear
Resume ausgang
 
End Sub

www.dekoforce.net