Sub Macro1()
main_dir = ThisWorkbook.Path & "\"
Set myobj = CreateObject("Access.Application")
myobj.Visible = True
c_db = main_dir & "c_hist.mdb"
myobj.OpenCurrentDatabase (c_db)
myobj.docmd.openTable ("t1")

'What do you put in here to change the value(s) in record 1?

myobj.docmd.Close
myobj.docmd.openQuery ("member")

'What do you put in here to copy the values
'returned by the query to the clipboard?

myobj.docmd.Close
End Sub