Public Function getReqs() As System.Xml.XmlDocument

    Try

        Dim dbConn As OleDbConnection = GetConnection()

        Dim dbCMd As New OleDbCommand

        Dim dbAdapter As New OleDbDataAdapter

        Dim dbReqs As New DataSet

        dbCMd.CommandText = "SELECT [reqID],[type],[Device],[releaseType] as [tech],[complete],[newVers],[product],[date] FROM [reqs] AS [reqs]"

        dbReqs.DataSetName = "Reqs"

        dbAdapter.Fill(dbReqs, "[reqID]")

        Dim xmldoc As New System.Xml.XmlDocument

        Return xmldoc

    Catch ex As Exception

        Return Nothing

    End Try

End Function