[VB6+ ACCESS] procedure print

[Dirkpitt84]

If Index = 0 Then
Dim ac As Access.Application
Set ac = CreateObject("Access.Application")
ac.Visible = True ' se non lo metto, non fa l'anteprima
ac.DoCmd.RunCommand acCmdAppMaximize ' espande Access
ac.OpenCurrentDatabase (nome_db), False
ac.DoCmd.OpenReport "scheda_report", acViewPreview, , "[codice]=" &
Chr(34) & id & Chr(34)
ac.DoCmd.Maximize
ac.Application.Visible = True
ac.DoCmd.SelectObject acReport, , True
ac.DoCmd.RunCommand acCmdWindowHide

If Check1(0).value = vbChecked Then
Reports!scheda_report!scheda_sottoreport0.Visible = True
End If
If Check1(1).value = vbChecked Then
Reports!scheda_report!scheda_sottoreport1.Visible = True
End If
With Reports!scheda_report
If .Filter = vbNullString Then
.FilterOn = True
.Filter = " "
.Filter = vbNullString
Else
.Filter = .Filter
.FilterOn = True
End If
End With
Set ac = Nothing
Unload Form6
Else
Unload Form6
End If
End Sub

Ormai sto IMPAZZENDO non riesco a trovare l'errore in questa mia procedura
e ormai e
da piu di una settimana che ci lavoro sopra

la prima volta funziona tutto perfettamente la seconda volta mi da errore
Errore di automazione,
l'oggetto invocato si è disconnesso dai client corrispondenti
questo errore me lo da quando cerca di rendere visibile il sottoreport

ho inserito perfino questo filtro che ho trovato su google, ma senza alcun
successo

With Reports!scheda_report
If .Filter = vbNullString Then
.FilterOn = True
.Filter = " "
.Filter = vbNullString
Else
.Filter = .Filter
.FilterOn = True
End If

End With


What is the problem??