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