Public Class frmDentotarDetails
    Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Public Function Update_Data(tarifnr As String)
        Dim db As New clsDB
        db.Get_Tabledata("Dentotar", "where leistungnrneu='" + tarifnr + "'")
        Me.TextBox1.Text = db.dsDaten.Tables(0).Rows(0).Item("leistungnrneu").ToString
        Me.TextBox2.Text = db.dsDaten.Tables(0).Rows(0).Item("LeistungD").ToString
        Me.TextBox3.Text = db.dsDaten.Tables(0).Rows(0).Item("Interpretationd").ToString
        Me.TextBox4.Text = db.dsDaten.Tables(0).Rows(0).Item("Abrechnungseinheit").ToString
        Me.TextBox5.Text = db.dsDaten.Tables(0).Rows(0).Item("Taxpunkte_UV_MV_IV").ToString
        Me.TextBox6.Text = db.dsDaten.Tables(0).Rows(0).Item("PP_MIN").ToString
        Me.TextBox7.Text = db.dsDaten.Tables(0).Rows(0).Item("PP_Privat").ToString
        Me.TextBox8.Text = db.dsDaten.Tables(0).Rows(0).Item("PP_Max").ToString
        Me.TextBox9.Text = db.dsDaten.Tables(0).Rows(0).Item("BetragInCHF").ToString


    End Function

    Private Sub frmDentotarDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub frmDentotarDetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then Me.Close()
    End Sub

    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Escape Then Me.Close()
    End Sub
End Class