Live DDE Link Into Access

[GillinghamFC]

I need to create a live link direct into a table from a web based application. It works o.k in Excel. I can insert data into access but I can't create a live link? Any ideas?

Private Function GetDDEBridge()

Channel1 = DDEInitiate("BDDE", "TKR&quot

' Set up error handle
On Error Resume Next

' FX
Dim MyDB As Database
Set MyDB = CurrentDb()
Dim Table1 As Recordset
Set Table1 = MyDB.OpenRecordset("DDETest&quot

Table1.LockEdits = True
Table1.Edit
' £/$
Table1("GBPUSD&quot = Trim(DDERequest(Channel1, "$$GBPUSD/ls&quot)
Table1("GBPUSDDChg&quot = Trim(DDERequest(Channel1, "$$GBPUSD/dac&quot)
Table1("GBPUSDPChg&quot = Trim(DDERequest(Channel1, "$$GBPUSD/dpc&quot)
' $/£
Table1("USDGBP&quot = Trim(DDERequest(Channel1, "$$USDGBP/ls&quot)
Table1("USDGBPDChg&quot = Trim(DDERequest(Channel1, "$$USDGBP/dac&quot)
Table1("USDGBPPChg&quot = Trim(DDERequest(Channel1, "$$USDGBP/dpc&quot)
' £/EUR
Table1("GBPEUR&quot = Trim(DDERequest(Channel1, "$$GBPEUR/ls&quot)
Table1("GBPEURDChg&quot = Trim(DDERequest(Channel1, "$$GBPEUR/dac&quot)
Table1("GBPEURPChg&quot = Trim(DDERequest(Channel1, "$$GBPEUR/dpc&quot)
' EUR / $
Table1("EURGBP&quot = Trim(DDERequest(Channel1, "$$EURGBP/ls&quot)
Table1("EURGBPDChg&quot = Trim(DDERequest(Channel1, "$$EURGBP/dac&quot)
Table1("EURGBPPChg&quot = Trim(DDERequest(Channel1, "$$EURGBP/dpc&quot)
Table1.Update
Table1.LockEdits = False
Table1.Close

Set Table1 = Nothing

' IPE Brent Crude
Dim Table2 As Recordset
Set Table2 = MyDB.OpenRecordset("Brent_Reuters&quot

Table2.LockEdits = True
Table2.Edit
' Front Month
Table2("Brent1Bid&quot = Trim(DDERequest(Channel1, "@IB.1/bid&quot)
Table2("Brent1Ask&quot = Trim(DDERequest(Channel1, "@IB.1/ask&quot)
Table2("Brent1Hi&quot = Trim(DDERequest(Channel1, "@IB.1/hi&quot)
Table2("Brent1Lo&quot = Trim(DDERequest(Channel1, "@IB.1/lo&quot)
Table2("Brent1Chg&quot = Trim(DDERequest(Channel1, "@IB.1/dac&quot)
Table2("Brent1PChg&quot = Trim(DDERequest(Channel1, "@IB.1/dpc&quot)
' Front 2nd Month
Table2("Brent2Bid&quot = Trim(DDERequest(Channel1, "@IB02M/bid&quot)
Table2("Brent2Ask&quot = Trim(DDERequest(Channel1, "@IB02M/ask&quot)
Table2("Brent2Hi&quot = Trim(DDERequest(Channel1, "@IB02M/hi&quot)
Table2("Brent2Lo&quot = Trim(DDERequest(Channel1, "@IB02M/lo&quot)
Table2("Brent2Chg&quot = Trim(DDERequest(Channel1, "@IB02M/dac&quot)
Table2("Brent2PChg&quot = Trim(DDERequest(Channel1, "@IB02M/dpc&quot)
Table2.Update
Table2.LockEdits = False
Table2.Close

Set Table2 = Nothing

' IPE Gas Oil
Dim Table3 As Recordset
Set Table3 = MyDB.OpenRecordset("GasOil_Reuters&quot

Table3.LockEdits = True
Table3.Edit
' Front Month
Table3("GasOil1Bid&quot = Trim(DDERequest(Channel1, "@IP.1/bid&quot)
Table3("GasOil1Ask&quot = Trim(DDERequest(Channel1, "@IP.1/ask&quot)
Table3("GasOil1Hi&quot = Trim(DDERequest(Channel1, "@IP.1/hi&quot)
Table3("GasOil1Lo&quot = Trim(DDERequest(Channel1, "@IP.1/lo&quot)
Table3("GasOil1Chg&quot = Trim(DDERequest(Channel1, "@IP.1/dac&quot)
Table3("GasOil1PChg&quot = Trim(DDERequest(Channel1, "@IP.1/dpc&quot)
' Front 2nd Month
Table3("GasOil2Bid&quot = Trim(DDERequest(Channel1, "@IP02M/bid&quot)
Table3("GasOil2Ask&quot = Trim(DDERequest(Channel1, "@IP02M/ask&quot)
Table3("GasOil2Hi&quot = Trim(DDERequest(Channel1, "@IP02M/hi&quot)
Table3("GasOil2Lo&quot = Trim(DDERequest(Channel1, "@IP02M/lo&quot)
Table3("GasOil2Chg&quot = Trim(DDERequest(Channel1, "@IP02M/dac&quot)
Table3("GasOil2PChg&quot = Trim(DDERequest(Channel1, "@IP02M/dpc&quot)
Table3.Update
Table3.LockEdits = False
Table3.Close

' if error display message
If Err Then
Err = 0
' Display error information.
MsgBox "Error number " & Err.Number & ": " & Err.Description
End If

DDETerminateAll

End Function

 

[Guest_imported]

HELP!