private function openconnect() as boolean
dim sconnect aas string
if usedsn then
set mcon=rdoeenvironments(0).openconnection("pubs")
else
sconnect=_
"uid=sa;"&_
"pwd=;"&_
"database=pubs;"&_
"server=your server;"&_
"driver={sql server};"&_
"dsn='';"
set mcon=rdoenvironments(0).openconnection("",,,sconnect,)
end if
祝你好运
ip表示的也可以阿,