Private Sub GridStart(sSQL As String, Optional sfilter As String)
 
Dim oRs As New ADODB.Recordset
 
oRs.CursorLocation = adUseClient
 
 
oRs.Open sSQL, pdb, adOpenDynamic, adLockBatchOptimistic
 
With sevGrid1
 
    ' autom. Neuzeichnen des DataGrids unterbinden
    .LockUpdate True
 
    ' Recordset zuweisen und clonen
    .CreateClone = True
 
    .Clear True
 
    Set .Recordset = oRs
 
    'Spaltenbreite laden
    .ReadColumnWidth "", "bank", "Breite", App.Path & "\grid.ini"
 
    ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
    .AllowEdit = True
    .AutoUpdate = True
    .AllowDelete = True
 
 
    ' autom. Neuzeichnen einschalten
    .LockUpdate False
 
    .Refresh
    .Row = 1
 
    oRs.Close
 
    Set oRs = Nothing
 
 
End With
 
 
 
 
End Sub
 
Private Sub sevGrid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, Cancel As Integer)
 
  Dim nResult As Integer
 
  With sevGrid1
      nResult = MsgBox("Änderung '" & sText & "' übernehmen?", vbYesNoCancel)
      Select Case nResult
        Case vbYes
          Cancel = 0
        Case vbNo
          Cancel = 1
        Case Else
          Cancel = 2
      End Select
  End With
 
End Sub