Private Sub Form_Load()
Set fln = New ADODB.Recordset
sql$ = "Select * from Flechternotiz where nr = " & dtznr
fln.LockType = adLockPessimistic
fln.Open sql$, pdbfl
If fln.EOF Then Exit Sub
Text1 = fln("text")
End Sub

Private Sub Command1_Click()
fln("text") = Text1
fln.Update
fln.Close
Unload flechtnotiz
End Sub