Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            Dim conn As OleDbConnection
            conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
              "Source=C:\Marko\Programme\Schießbuch\Schießbuch\Schuss.mdb;")
 
            Dim SelectSQL As String = "SELECT SUM(schnitt) AS Summeschnitt FROM" & _
              "Schusstabelle"
            Dim cmd As New OleDbCommand(SelectSQL, conn)
            Dim ds As New DataSet
            Dim da As New OleDbDataAdapter(cmd)
 
            da.Fill(ds, "Schusstabelle")
 
            Dim Summe As Double = ds.Tables("Schusstabelle").Rows(0).Item( _
              "Summeschnitt")
 
            SelectSQL = "SELECT * FROM Schusstabelle"
            cmd = New OleDbCommand(SelectSQL, conn)
            da = New OleDbDataAdapter(cmd)
            da.Fill(ds, "Schusstabelle2")
 
            Dim Anzahl As Long = ds.Tables("Schusstabelle2").Rows.Count
 
            MsgBox(Summe / Anzahl)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub