[devpos]

Backup

cmd.CommandText = "BACKUP DATABASE lite TO DISK='" & My.Application.Info.DirectoryPath & "\Backup\145444.BAK'"

Restore

Dim con As New SqlConnection((.................................................."))
Dim database As String = con.Database.ToString()
If con.State <> ConnectionState.Open Then
con.Open()

End If

Dim sqlStmt2 As String = String.Format("ALTER DATABASE [" + "lite" + "] SET SINGLE_USER WITH ROLLBACK IMMEDIATE")
Dim bu2 As SqlCommand = New SqlCommand(sqlStmt2, con)
bu2.ExecuteNonQuery()
Dim sqlStmt3 As String = "USE MASTER RESTORE DATABASE [" + "lite" + "] FROM DISK='" + TextBox1.Text + "'WITH REPLACE"
Dim bu3 As SqlCommand = New SqlCommand(sqlStmt3, con)
bu3.ExecuteNonQuery()
Dim sqlStmt4 As String = String.Format("ALTER DATABASE [" + "lite" + "] SET MULTI_USER")
Dim bu4 As New SqlCommand(sqlStmt4, con)
bu4.ExecuteNonQuery()