Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Open report

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