Analytics Software

Hi Experts,

While I tried to import data from RDB, it pop up a window shows:"SQL Insert Successful !" but Infor bar have an error msg : " Error: Import failed.Invalid data or Empty content." Besides,it won't write anything on error log.
Did anyone know this error? Or which setting should be changed? thanks!!!

FDM version:11.1.2.1
Database: SQL Server 2008
Import Format setting:File Type-Script

Script as below:

Function ImportDBData(strLoc, lngCatKey, dblPerKey, strWorkTableName)
'------------------------------------------------------------------
'Oracle Hyperion FDM IMPORT Integration Script:
'
'Created By: fdmadmin
'Date Created: 2011-11-08 12:27:25
'
'Purpose:
'
'------------------------------------------------------------------
Dim cnSS 'ADO connection Object
Dim strSQL 'SQL String
Dim rs 'Source system recordset
Dim rsAppend 'FDM recordset
'Initialize ADO objects
Set cnSS = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
'Open FDM work table recordset For appending
Set rsAppend = DW.DataAccess.farsTableAppend(strWorkTableName)
'Connect To Northwind SQL Server database (our data source)
Dim strConn
strConn="Provider=SQLOLEDB.1;Initial Catalog=FDMTEST;Data Source=fiacthfmtd.cdibank.com;User ID=hyperion;Password=password;"
cnss.open strConn
'Create source query String
strSQL = "Select * "
strSQL = strSQL & "FROM SourceTB "
'Open source recordset
rs.Open strSQL, cnSS
'Check For data In source system
If rs.bof And rs.eof Then
'Give Error message
RES.PlngActionType = 2
RES.PstrActionValue = "No records To load!"
'Assign Return value of Function
SQLIntegration = False
Exit Function
End If
'Loop through source records In Northwind database (Orders table) And append To FDM work table
If Not rs.bof And Not rs.eof Then
Do While Not rs.eof
rsAppend.AddNew
rsAppend.Fields("PartitionKey") = RES.PlngLocKey
rsAppend.Fields("CatKey") = lngCatKey
rsAppend.Fields("PeriodKey") = dblPerKey
rsAppend.Fields("DataView") = "YTD"
rsAppend.Fields("Amount") = rs.fields("Data").Value
rsAppend.Fields("Account") = rs.fields("Account").Value
rsAppend.Fields("Entity") = rs.fields("Entity").Value
rsAppend.Fields("ICP") = rs.fields("ICP").Value

rsAppend.Update
rs.movenext
Loop
End If
'Give success message
RES.PlngActionType = 2
RES.PstrActionValue ="SQL Import successful!"
'Assign Return value
SQLIntegration = True

End Function