Otvaranje mdb kodom iz VB 6

Pozdrav svima.

Kako da otvorim kodom iz VB 6 vec kreiranu access bazu mdb te kodom da postavim neki Data Filter kao npr. Last Month?
Kodom bi trebao da otvorim i query1 radi printanja.

Recimo:

Potpis

Starac bez mora...

Hvala na odgovoru.
Na prvoj liniji mi daje gresku: Unrecognized databaze format

Treba da mi fizicki otvori mdb fajl. Excel fajl otvaram ovim kodom:

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oWS As Excel.Worksheet
Dim FileName As String
FileName = Text2.Text
Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open("C:\Antena\Elementi.xlsx")
Set oWS = oWB.Worksheets("Dipoli")
oXL.Visible = True
oWB.SaveAs FileName

Hvala na odgovoru.
Na prvoj liniji mi daje gresku: Unrecognized databaze format

Treba da mi fizicki otvori mdb fajl. Excel fajl otvaram ovim kodom:

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oWS As Excel.Worksheet
Dim FileName As String
FileName = Text2.Text
Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open("C:\Antena\Elementi.xlsx")
Set oWS = oWB.Worksheets("Dipoli")
oXL.Visible = True
oWB.SaveAs FileName

Uh sorry, nisam napomenuo da se radi o MDB bazama 2.0 (stari acces iz offica '97). Ove nove verzije ne bih znao, davno se to radilo.....
Imaš dosta primjera na net-u, doduše na engleskom.

Potpis

Starac bez mora...

Uspio sam ovim kodom da otvaram tabele u mdb fajlu:

Set appAccess = CreateObject("Access.application")
appAccess.OpenCurrentDatabase ("C:\Faktura1.mdb")
appAccess.DoCmd.OpenTable "Fakture"
appAccess.Visible = True

Sta treba izmijeniti da bi otvorio Query ili Report

pokusao sam promijeniti u trecoj liniji :appAccess.DoCmd.OpenReport "Fakture"

ali mi daje error: the report name you entered in either the property sheet or macro is misspelled or refers to a report that does not exist