Visual Basic - GRID como se imprimen me vuelvo loca

Ya he probado con todo decirme que es lo que hago mal pues seme queda colgado el equipo con esta opción

'Dim objAccess As Object
'Datapartesfecha.Database.Close
'Datalio.Database.Close
'Const acViewDesing = 0 'modo diseño
'Const acViewNormal = 1 'modo impresion directa
'Const acViewPreview = 2 ' modo previo
'creamos el objeto
'Set objAccess = CreateObject("access.application.8")
'abrimos la base de datos
'objAccess.opencurrentdatabase " costes.mdb "
'lanzamos el informe que queremos
'el formato del método es:
'Aplication.DoCmd.OpenReport,,,
'objAccess.DoCmd.OpenReport "consultaempleados", acViewPreview

'hacemos visible la ventana access
'objAccess.Visible = True
'MsgBox "Haga clic en Aceptar para cerrar Access"