se me cambia de nombre la base de datos

[guillebomtrasmiti]

listo, lo pongo para el que lo pueda necesitar;

Try
copiaintrointro2()

Dim oAccess As Access.Application
'Start a new instance of Access for Automation:
oAccess = New Access.Application
'Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:=CurDir() & "\Base1.mdb", Exclusive:=False)
'Preview a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dreamt_Venta s_Zeta", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dreamt_Venta s_Zeta", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()
oAccess.DoCmd.Close()
Catch ex As Exception
MessageBox.Show("Se ha producido una excepción: " + ex.Message)
End Try