Private Sub Init()
  Dim oRs As ADODB.Recordset
 
  Set oRs = New ADODB.Recordset
  With oRs
    .CursorLocation = adUseClient
 
    ' oConn = geöffnetes ADODB.Connection Objekt
    .Open "SELECT * FROM Anschrift", oConn, adOpenStatic, adLockOptimistic
  End With
 
  Set sevGrid.Recordset = oRs
  sevGrid.Refresh
  sevGrid.AllowDelete = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de