Prblemet är att min datareport skippar första elementet, alla andra skrivs ut, varför??


Lite kod på hur det är gjort:

Cmd.ActiveConnection = con
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "spGetAlarmPrint"
Cmd.Parameters.Refresh
Cmd.Parameters(1) = AlarmReport.AlarmIdentifier

' Execute the stored procedure
Set rstData = Cmd.Execute

Set AlarmReport.DataSource = Nothing
AlarmReport.DataMember = ""
' Use the retrived data
Set AlarmReport.DataSource = rstData.DataSource

' Define where the data shall be put
AlarmReport.Sections("Section1").Controls.Item("txtAlarmDate").DataMember = ""
AlarmReport.Sections("Section1").Controls.Item("txtAlarmDate").DataField = rstData.Fields(5).Name

AlarmReport.Sections("Section1").Controls.Item("txtAlarmTime").DataMember = ""
AlarmReport.Sections("Section1").Controls.Item("txtAlarmTime").DataField = rstData.Fields(6).Name

AlarmReport.Sections("Section1").Controls.Item("txtAlarmTag").DataMember = ""
AlarmReport.Sections("Section1").Controls.Item("txtAlarmTag").DataField = rstData.Fields(4).Name

AlarmReport.Sections("Section1").Controls.Item("txtAlarmName").DataMember = ""
AlarmReport.Sections("Section1").Controls.Item("txtAlarmName").DataField = rstData.Fields(3).Name

AlarmReport.Sections("Section1").Controls.Item("txtAlarmDesc").DataMember = ""
AlarmReport.Sections("Section1").Controls.Item("txtAlarmDesc").DataField = rstData.Fields(1).Name

AlarmReport.Sections("Section1").Controls.Item("txtAlarmState").DataMember = ""
AlarmReport.Sections("Section1").Controls.Item("txtAlarmState").DataField = rstData.Fields(8).Name

AlarmReport.Sections("Section1").Controls.Item("txtAlarmType").DataMember = ""
AlarmReport.Sections("Section1").Controls.Item("txtAlarmType").DataField = rstData.Fields(7).Name

' Show the Alarm report
Call ShowWindow(AlarmReport.hWnd, SW_NORMAL)

Jag kan meddela att när jag ändrade:
con.CursorLocation = adUseServer

till:
con.CursorLocation = adUseClient

så fungerade det fint... underligt