Dim sSQL As String
 
sSQL = "SELECT t_hersteller.H_ID, t_hersteller.hersteller " & _
  "From t_hersteller ORDER BY t_hersteller.hersteller;"
 
Set orsHersteller = New ADODB.Recordset
With orsHersteller
  .CursorLocation = adUseClient
  .Open sSQL, ocngDB, adOpenStatic, adLockOptimistic
End With

With orsHersteller
  .Delete adAffectCurrent
  .Requery
  If .RecordCount > 0 Then
    If Not .BOF = True Then
      .MovePrevious
    Else
      .MoveFirst
    End If
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de