//Code des Hauptformulars
Option Explicit
 
Private sDataFile   As String
Private oConn       As ADODB.Connection
Private oRS         As ADODB.Recordset
 
Private Sub Form_Load()
  ' Datagrid füllen
  sDataFile = App.Path & "Test1.mdb"
  Set oConn = New ADODB.Connection
  oConn.Provider = "Microsoft.Jet.OLEDB.3.51"
  oConn.Open sDataFile
 
  Set oRS = New ADODB.Recordset
  oRS.Open "SELECT * FROM tblFileList", oConn, adOpenStatic, adLockReadOnly
 
  Set Me.DataGrid1.DataSource = oRS
End Sub
 
Private Sub DataGrid1_DblClick()
  ' Nun erstmal das Form laden
  Load frmDetail
  ' das Recordset weitergeben
  frmDetail.InitForm oRS
  ' das Form anzeigen
  frmDetail.Show vbModal
End Sub
 
//Code des detail Forms
Option Explicit
Public Sub InitForm(oRS As ADODB.Recordset)
  ' irgendwie den übergebenen Recordseteintrag anzeigen
  Me.Text1.Text = oRS.Fields(1) & vbCrLf
  Me.Text1.Text = Me.Text1.Text & oRS.Fields(2) & vbCrLf
End Sub