Application VisualBasic Script

Sub runReport()
    Dim con As ADODB.Connection
     Set con = New ADODB.Connection
     con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=C:\mydb.mdb;"
     DoCmd.OpenReport "rptCustomer", acViewPreview
End Sub