Using cmd As OleDbCommand = New OleDbCommand
                cmd.Connection = oConn
                cmd.CommandText = "SELECT AVG(Netto) AS Durchschnitt FROM" & _
                  "Monatslohn WHERE Jahr=" & _
                  Me.NumericUpDown_Jahresdurchschnitt.Value
                cmd.Connection.Open()
                Dim oAVG As Decimal = Convert.ToDecimal(cmd.ExecuteScalar())
                Me.Label24.Text = oAVG.ToString("C")
                cmd.Connection.Close()
            End Using

Hänk

(Wer früh aufsteht hat mehr vom Tag)