mailmerge.datasource.connectstring

[kathy]

I have Word Mail Merge docs connected to various Access
DB Queries.

Have a sub that is called every time a word doc is opened
that is meant to message box the documents mail merge
datasource.

This function is called by the Document_Open Sub.
Public Sub InsertDBSource()

Dim DBSource as String
DBSource=ActiveDocument.MailMerge.DataSource.ConnectString
MsgBox DBSource

End Sub

I get an error message saying buffer for return string is
too small (refering to the DBSource assignment)

This code works for all my documents created using older
versions of word and access. we have recently migrated to
Office XP and any new mail merge documents i create and
link to queries generate the same error message.

Any ideas on what could be the problem would be great.

Thanks