Private Sub CmdabschlussClick(sender As System.Object, e As System.EventArgs)
			Dim sDBPfad As String = "C:\Spielerdatenbank.mdb"
			Dim sCn As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & sdBPfad
			Dim Db As Database
			On Error Resume Next
			Db.Execute "DROP Table Spieler1"