如何用VB输ACCESS报表

lixiaoai

Private Sub Command1_Click()
Dim s As Access.Application
Set s = New Access.Application
s.OpenCurrentDatabase ("F:\机加车间工时管理系统\forjjcj.mdb")
s.DoCmd.OpenReport "车间流水月报表", acViewNormal
's.CloseCurrentDatabase
'Set s = Nothing
End Sub