Erro de conexão como corrigir ? O que corrigir

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.