ผมใช้โค๊ตนี้ที่ Event Report_Footer

Dim conn As New ADODB.Connection
conn.ConnectionString = Access.CurrentProject.BaseConnectionString
conn.Open
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = conn

With cmd
.CommandText = "dbo.RSP_PL_GWSum"
.CommandType = adCmdStoredProc
.Parameters.Refresh
.Parameters(1) = Me.InvoiceNo
.Execute
End With
Me.SGW = cmd.Parameters(2).Value

With cmd
.CommandText = "dbo.RSP_PL_NWSum"
.CommandType = adCmdStoredProc
.Parameters.Refresh
.Parameters(1) = Me.InvoiceNo
.Execute
End With
Me.SNW = cmd.Parameters(2).Value

conn.Close
Set conn = Nothing
Set cmd = Nothing

คือก่อนหน้านี้จะใช้ Sub Report ตอนแรกก็ใช้ได้ไม่มีปัญหาอะไร แต่ช่วงหลังๆ นี้จะใช้ไม่ได้เลย พอเปิด Report ก็แฮงค์แล้วก็ไปที่ Blue Screen ให้เรา Enter เพื่อออกจาก Access
แต่ถ้าเอาโค๊ตนี้ออกก็จะไม่มีปัญหาอะไร รันที่ SP ก็ปกติครับ