Private Sub CmdabschlussClick(sender As System.Object, e As System.EventArgs)
			Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=C:\Spielerdatenbank.mdb"
			Dim conn As New OleDb.OleDbConnection(connString)
		    Dim cmd As New OleDb.OleDbCommand("Insert Into Spieler FROM Sicherung")
				Try
			    	conn.Open()
			    	cmd.CommandText = "Insert Into Spieler FROM Sicherung"
			        cmd.ExecuteNonQuery()
			        Catch ex As OleDb.OleDbException
			            MessageBox.Show("Insert failed: " & ex.Message)
			        Finally
			        	conn.Close()
			  	End Try	
		End Sub