Dim sDBPfad As String = "C:\Spielerdatenbank.mdb"
			Dim sCn As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & sdBPfad
			Dim z as Integer
			Try
					Cn = New OleDbConnection(sCn)
					Cn.Open ()
					Cmd = New OleDbCommand("Select * From Spieler", Cn)
					Dr = Cmd.ExecuteReader
					Do While Dr.Read
						With lstarchiv.Items
     						lstarchiv.Items.Add ((Dr.Item("Spieler")) & (Dr.Item("Stärke")))
     						z += 1
						End With
					Loop
					Cn.Close ()
					Catch ex As Exception
						MessageBox.Show ("OleDB-Error: " & ex.Message)
				End Try