Visual Basic - Me sale error y no se porque

Hola, y gracias por atenderme. TEngo un prblema , me sale un error y no se pq me sale, mira les dejo el codigo:

Dim Informe As Access.Application
Set Informe = New Access.Application
Informe.OpenCurrentDatabase (App.Path & "\Almacens.mdb")
Informe.DoCmd.OpenReport "nombreinformes", acViewNormal
Informe.CloseCurrentDatabase
Set Informe = Nothing

ESte codigo es para abrir informes de access, me sale que no esta definido el tipo por el tipo del usuario, pq es?? Gracias

Ya lo tienes subsanado en un mensaje anterior.

Saludos Pola

Gracias por tu ayuda de nuevo. Perdona por molestarte tanto.
Ahora me sale un error, y me dice exactamente que no se puede imprimir el objeto, mira te pongo la linea exacta donde me pone el error.

inf.DoCmd.OpenReport Text1.Text, acViewNormal

si cambio text1.text (que es el nombre de la caja donde pondre el nombre del informe me sale ese error) pero si pongo tb el nombre del informe tb me sale el error. Gracias.