Oi.
Usando o controle Data (DAO) e objeto OLE, fica assim:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.MaxModified
End Sub
Private Sub oleFields_DblClick(Index As Integer)
'this is the way to get data into an empty ole control
'and have it saved back to the table
oleFields(Index).InsertObjDlg
End Sub
Espero que ajude!!