' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
Private Sub DataGrid1_DblClick()
 
  Load Form2
 
  With Form2
    .Text1.Text = FeldInhalt(RS!Vorname)
    .Text2.Text = FeldInhalt(RS!Zuname)
  ' u.s.w.
  End With
 
  Form2.Show
 
End Sub
 
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
 
Private Function FeldInhalt(Feld As Field) As Variant
  If IsNull(Feld.Value) Then
    If Feld.Type = dbInteger Or Feld.Type = dbLong Then
      FeldInhalt = 0
    ElseIf Feld.Type = dbBoolean Then
      FeldInhalt = False
    Else
      FeldInhalt = ""
    End If
  Else
    FeldInhalt = Feld.Value
  End If
End Function