strDBServerName = "."
Set objSQLServer = CreateObject("SQLDMO.SQLServer")objSQLServer.LoginSecure = TrueobjSQLServer.Name = strDBServerName
objSQLServer.Start False