Sub Datenbanksicherung_zurück_spielen()
 
        Me.Text = "Die Datenbanksicherung wird jetzt zurück gespielt..."
        Me.Refresh()
 
        Dim sql As String = "RESTORE DATABASE Bistro_Cash FROM DISK ='" & _
          Label2.Text.Trim & "'"
 
        MessageBox.Show(sql)
 
        Dim DBcmd As New SqlCommand(sql, DBconn)
 
        Try
            DBconn.Open()
            DBconn.ChangeDatabase("master")
            DBcmd.ExecuteNonQuery()
            If DBconn.State = ConnectionState.Open Then DBconn.Close()
        Catch ex As Exception
            If DBconn.State = ConnectionState.Open Then DBconn.Close()
            MessageBox.Show(ex.ToString)
        End Try
 
        DBcmd.Dispose()
 
        Me.Text = "Die Datenbanksicherung wurde erfolgreich zurück gespielt..."
        Me.Refresh()
 
        th_1.Abort()
 
    End Sub