Private Sub BackUpDatabaseToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackUpDatabaseToolStripMenuItem.Click
Using con As New SqlConnection("data source=woody;initial catalog=transport;uid=sa;pwd=47222420322")
con.Open()
Dim cm As New SqlCommand("backup database transport to disk='\\WooDy\D:\transport.bak'", con)
cm.ExecuteNonQuery()
con.Close()
End Using
End Sub