Database

str = "C:\SQLEXPRFiles\setup.exe /qb ADDLOCAL=ALL INSTANCENAME=Instance1 SECURITYMODE=SQL SAPWD=password DISABLENETWORKPROTOCOLS=0 "<br />
       <br />
        Shell(str, AppWinStyle.Hide, True)

Dim ComputerName As String = My.Computer.Name<br />
<br />
        Dim MainServer As Server = New Server(ComputerName & "\Instance1")<br />
        With MainServer.ConnectionContext<br />
            .LoginSecure = False<br />
            .Login = "sa"<br />
            .Password = password <br />
            .Connect()<br />
            If MainServer.Databases.Contains(mydatabase) Then<br />
            Else<br />
                Dim logstr As String<br />
                Dim datastr As String<br />
                datastr = Application.StartupPath & "\mydatabase.mdf"<br />
                logstr = Application.StartupPath & "\mydatabase_log.ldf"<br />
                'Attach the database<br />
                Dim sc As StringCollection<br />
                sc = New StringCollection<br />
                sc.Add(datastr)<br />
                sc.Add(logstr)<br />
                Try<br />
                    MainServer.AttachDatabase(mydatabase, sc, ComputerName & "\Owner")<br />
                    MsgBox("Database Attached")<br />
                Catch ex As Exception<br />
                    MsgBox(ex.Message.ToString)<br />
                End Try<br />
            End If<br />
            .Disconnect()<br />
            .AutoDisconnectMode = AutoDisconnectMode.DisconnectIfPooled<br />
<br />
        End With