Thanx





"Chip Pearson" schrieb im Newsbeitrag
...
Tom,

You can use the CallByName function to call the OpenDatabase
function. E.g.,

#If VBA6 Then
If CInt(Application.Version) = 10 Then
CallByName Workbooks, "OpenDatabase",vbMethod ', other
arguments
End If
#End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Tom" wrote in message
...
Hi

I have a problem with the OpenDatabase-Method. This method
works with xlXP+
but fails with xl97 & xl2K.

The following script works fine with all XL versions except
xl2K:

Sub Test()
#If VBA6 Then
Workbooks.OpenDatabase ...
#End If
End Sub

Any ideas to get this work with xl2K?

Tom