Alguem tem uma luz
Set Con = CreateObject("ADODB.Connection")
Con.ConnectionString = "Provider=SQLOLEDB;Data Source=(Local);Initial Catalog=MyBank;Persist Security Info=False;Integrated Security=SSPI"
OpenConnection = Con.Open
Mensagem de erro
Microsoft OLE DB Provider for SQL Server erro '80004005'
Não é possível abrir o banco de dados "SimpleCrudWithBoostrap" solicitado pelo logon. Falha de logon.