Function GetASumme(ByVal ID As Integer) As Double
 
        Dim tmpInhalt
 
        Try
 
            Dim Dr As OleDbDataReader
            Dim Cmd As OleDbCommand
            Dim sCn As String = DBCnn()
            Dim Cn As New OleDbConnection(sCn)
 
 
            Cmd = New OleDbCommand("SELECT T_4600.ID, T_4600.AID," & _
              "T_4600.SummePos, T_4600.SummeGPreis, T_4600.SummeMwSt," & _
              "T_4600.MwSt, T_4600.GSumme FROM(T_4600) WHERE (((T_4600.AID)=" & _
              ID & "));", Cn)
            Cn.Open()
 
            Dr = Cmd.ExecuteReader
 
            Dr.Read()
 
            tmpInhalt = Dr.Item("GSumme")
 
            Cn.Close()
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
        End Try
 
        Return tmpInhalt
 
    End Function