Public Sub sperre_bearb_ein(sql As String)
    'An die Sub wird die SQL Anweisung zum abfragen der Kommission übergeben.
    Set tabelle = db.OpenRecordset(sql)
    If tabelle.RecordCount > 0 And Not tabelle.BOF Then tabelle.MoveFirst
    If tabelle.RecordCount = 1 Then
        'Durchführen der Sperre
        tabelle.Edit
        tabelle("sperre") = 1
        tabelle("sperr_user") = v_cuser(1)
        'Auslesen der Workstation:
        tabelle("sperr_workstation") = GetComputerName
        'Nun ist die Kommission gesperrt der Username eingetragen und der 
        ' Computername gesetzt
        tabelle.update
        tabelle.Close
        Set tabelle = Nothing
        'Somit fertig...
    Else
        MsgBox "Die Kommission konnte nicht eindeutig ermittelt werden!" & _
          vbCrLf & "Die Bearbeitungssperre wurde nicht gesetzt!", _
          vbInformation, "Hinweis"
        v_open_abbruch = True
    End If
End Sub

    sperre_bearb_ein ("SELECT projektnummer,sperre,sperr_user,sperr_workstation" & _
      "FROM aa_allgemein WHERE projektnummer like '" + _
      list_ergebnis.SelectedItem.Tag + "'")
    If v_open_abbruch = True Then Exit Sub

mfG.
Stephan