Binaryworld - RestoreDatabase - Restoring a SQL Server database ... [ VB.net -> ADO.net ]

' Restore the specified database.
' Note: requires Imports System.Data.SqlClient
'
' Example:
' Dim connString As String = "server=(local); user id=sa; password=;
' Database=master;"
' Try
'   RestoreDatabase(connString, "MyTestDB", "D:\MyTestDbBackup.bak")
' Catch ex As Exception
'   MessageBox.Show(ex.Message)
' End Try

Sub RestoreDatabase(ByVal connString As String, ByVal dbName As String, _
  ByVal backupFile As String)

  Dim cn As New SqlConnection(connString)
  Try
    ' the command for restoring the DB
    Dim cmdBackup As New SqlCommand("RESTORE DATABASE [" & dbName & _
      "] FROM DISK = '" & backupFile & "'", cn)
    cn.Open()
    cmdBackup.ExecuteNonQuery()
  Finally
    cn.Close()
  End Try
End Sub