Private Sub Form_Load()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim strSQL As String
 
    Set cnn = CurrentProject.Connection
    strSQL = "SELECT * FROM tbl_personen"
 
    Set rst = New ADODB.Recordset
 
    rst.CursorLocation = adUseClient
    rst.Open strSQL, cnn, adOpenStatic, adLockBatchOptimistic
 
    Set grd_test.DataSource = rst
 
End Sub

Private Sub grd_test_DblClick()
    grd_test.
End Sub

Private Sub grd_test_DblClick()
    grd_test.Objekt.
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de