Private Function CreaDataTable(ByVal tbl As CrystalDecisions.CrystalReports.Engine.Database) As DataTable
        Dim Res As New DataTable(tbl.Tables("NomeTabella").Name)

        For Each fld As DatabaseFieldDefinition In tbl.Tables(0).Fields

            Select Case fld.ValueType
                Case CrystalDecisions.[Shared].FieldValueType.NumberField
                    Res.Columns.Add(fld.Name, GetType(Integer))

                Case CrystalDecisions.[Shared].FieldValueType.StringField
                    Res.Columns.Add(fld.Name, GetType(String))

                Case CrystalDecisions.[Shared].FieldValueType.DateField
                    Res.Columns.Add(fld.Name, GetType(Date))

                Case CrystalDecisions.[Shared].FieldValueType.BooleanField
                    Res.Columns.Add(fld.Name, GetType(Boolean))

            End Select

        Next

        Return Res
End Function