Private Sub Datenspeichern ()
			Dim objZeile As DataRow
			Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection ( _
  "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=C:\Fussballdatenbank.mdb")
			Dim objDataAdapter As OleDb.OleDbDataAdapter
			Dim objDataSet As DataSet
			Dim objDataView As DataView
 
  				'Daten Speichern in Datenbank
  				objZeile = objDataSet.Tables("Protokoll_Heute").NewRow()
   				With objZeile
   				    .Item("Name") = " "
				    .Item("Tore") = cboTore.Text
				    .Item("Bemerkung") = txtinhalt.Text
			   End With
			   objDataSet.Tables("Protokoll_Heute").Rows.Add(objZeile)
			   objDataAdapter.Update(objDataSet, "Protokoll_Heute")
		End Sub