Imports System.Data, System.Data.SqlClient
Public Class frmInput
  Inherits System.Windows.Forms.Form
  Dim cBuilder As SqlCommandBuilder
  Dim ds As DataSet
  Dim dataAdapter As SqlDataAdapter
  Dim dataTable As DataTable
  Dim titlesSource As New BindingSource()
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
    Me.SetDesktopBounds(Me.DesktopLocation.X, Me.DesktopLocation.Y, 682, 311)
    Me.CenterToScreen()
    'Connection aufbauen
    Dim conn As SqlConnection
    conn = New SqlConnection("Server=ABCDEFG\SQLEXPRESS;" & _
      "Database=daten;Integrated Security=True")
    conn.Open()
 
    ds = New DataSet("mydata")
    dataTable = ds.Tables.Add("Tabelle")
    dataAdapter = New SqlDataAdapter("SELECT *  FROM Tabelle ORDER BY Datum" & _
      "DESC", conn)
    dataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
    dataAdapter.Fill(dataTable)
    'Eigenschaften des Grid einstellen
    DataGridTab.DataSource = dataTable
    DataGridTab.ReadOnly = True
    DataGridTab.AllowUserToAddRows = False
    DataGridTab.RowHeadersVisible = True
    DataGridTab.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
    DataGridTab.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
    DataGridTab.DefaultCellStyle.Alignment = _
      DataGridViewContentAlignment.MiddleRight
    DataGridTab.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
    'Quersumme
    Dim total As Double
    Dim com As New SqlCommand("SELECT SUM([A1]) + Sum([A2]) + Sum([A3]) + Sum(" & _
      "[A4]) + Sum([A5]) + Sum([A6]) AS [Total] FROM Tabelle", conn)
    total = CInt(com.ExecuteScalar)
    txtinfGes.Text = "Prüfzahl : " & Format$(total, "##,##0")
 
    titlesSource.DataSource = ds
    titlesSource.DataMember = "Tabelle"
    txtDatum.DataBindings.Add("Text", titlesSource, "Datum")
    cboWoTag.DataBindings.Add("Text", titlesSource, "WoTag")
    txtRunde.DataBindings.Add("Text", titlesSource, "Runde")
'etc. etc......
  End sub

  Private Sub BindingNavigatorMoveFirstItem_Click(ByVal sender As _
    System.Object, _
  ByVal e As System.EventArgs) Handles BindingNavigatorMoveFirstItem.Click
    titlesSource.MoveFirst()
  End Sub

  Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
    titlesSource.AddNew()
    txtDatum.Focus()
  End Sub