' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
Private Sub Form_Load()
Dim SQL As String
 
Set DB = New ADODB.Connection
 
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "d:\db1.mdb"
 
Set RS = New ADODB.Recordset
 
SQL = "SELECT * FROM Tabelle1"
 
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic
 
Set DataGrid1.DataSource = RS
 
For N = 0 To DataGrid1.Columns.Count - 1
  DataGrid1.Columns(N).Locked = True
Next
 
DataGrid1_RowColChange 0, 0
 
End Sub
 
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
 
   If RS.RecordCount = 0 Then Exit Sub
 
   While Not DataGrid1.SelBookmarks.Count = 0
     DataGrid1.SelBookmarks.Remove 0
   Wend
 
   DataGrid1.SelBookmarks.Add DataGrid1.Bookmark
 
End Sub