Access module sample
Sub writedown()
Dim Db As Database, Tbl As Recordset
Dim str_message As String
Set Db = DBEngine.Workspaces(0).Databases(0)
Set Tbl = Db.OpenRecordset("sample", DB_OPEN_TABLE)
Do Until Tbl.EOF
str_message = str_message & Tbl!sample1 & "," & Tbl![sample2] & vbCrLf
Tbl.MoveNext
Loop
MsgBox str_message
End Sub