Dim zurück As Decimal = 0
 
        Using oConn As OleDbConnection = New OleDbConnection(oConnString)
 
            Using oAdapter As OleDbDataAdapter = New OleDbDataAdapter()
                oAdapter.SelectCommand = New OleDbCommand("SELECT AVG(Netto) AS" & _
                  "Durchschnitt FROM Monatslohn WHERE Jahr=" & _
                  Me.NumericUpDown_Jahresdurchschnitt.Value & " AND Netto IS" & _
                  "NOT NULL", oConn)
 
                Using oTable = New DataTable("Monatslohn")
                    oAdapter.Fill(oTable)
 
                    If oTable.Rows.Count > 0 Then
                        For Each oRow As DataRow In oTable.Rows
                            zurück = oRow("Durchschnitt")
                        Next
                    End If
 
                End Using
            End Using

Hänk

(Wer früh aufsteht hat mehr vom Tag)