Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim objConnection As OleDb.OleDbConnection = _
   New OleDb.OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;""Data" & _
   "Source=C:\Users\test\Desktop\SQL\Datenbank1.accdb")
        Dim objDataAdapter As OleDb.OleDbDataAdapter
        Dim objDataSet As New DataSet
        Dim objDataView As New DataView
        Dim lkh As New DataTable
        Dim con As New OleDb.OleDbConnection
 
        Dim objZeile As DataRow = Nothing
 
        If cbonam.SelectedIndex = 0 Then
 
 
 
            objZeile = objDataSet.Tables("lkh").NewRow
 
            With objZeile
                .Item("Datum") = TextBox1.Text
                .Item("arzt") = txtarzt.Text
                .Item("medikamente1") = txtmedi1
                .Item("medikament2") = txtmedi2
                .Item("medikament3") = txtmedi3
                .Item("€/medikamente") = txteumed
                .Item("behandlung") = txtbeh
                .Item("€/behandlung") = txteubeh
 
 
 
 
            End With