Function GetValue(ByVal o As Object) As Object
        If o Is System.DBNull.Value Then
            Return vbNullString
        End If
        Return o
    End Function

  Query = "SELECT sum(Betrag_1) FROM tblBuchungen" & m_aktSpielNummer & " WHERE" & _
    "Firma=" & m_aktFirmenNr & " AND Periode=" & m_aktPeriode & " AND Konto_1=" _
    & Chr(34) & 150 & Chr(34) & " AND Konto_2=" & Chr(34) & 120 & Chr(34)
        m_dtBuchungenSpielleiterSum1 = oDBVerbindung.QuickDataTable(Query, _
        "BuchungSum1")
        newRow("E120") = m_dtBuchungenSpielleiterSum1.Rows(0).Item(0)
        Summe = GetValue(m_dtBuchungenSpielleiterSum1.Rows(0).Item(0))