I'm using Access as a DDE server. If I do this, everything works fine:-
Sub Test1()
Dim iChannel1 As Integer
Dim iChannel2 As Integer
Dim sSQL As String
Dim vData As Variant
Shell "MSAccess " & dbPath & "database1.mdb", vbMinimizedNoFocus
iChannel1 =...