[AccessD] mail merge

Guys, when I run it I get an error , "Word was unable to open data source"
everitihng is in its place, what should I do ?

sCon = "DSN=ChoicePoint"

If Len(sSQL) > 2 Then

    objWord.Application.ActiveDocument.MailMerge.OpenDataSource
Name:="\\lsfp3\HRShare\recruiting\choicepoint\choicepnt.mdb", _
    LinkToSource:=True, Connection:=sCon, SQLStatement:=sSQL

objWord.ActiveDocument.MailMerge.Execute
End If



-----------------------------------------
Get Breaking News from CNN, ABC, NBC, CBS Now.
http://www.xuppa.com/news/?link=webmail