dim objCon as object
dim strConnectionString as String
dim iFileNum as Integer
set objCon=createobject("DataLinks")
strConnectionString=objCon.PromptNew()
set objCon=Nothing
if strConnection<>"" then
iFileNum = FreeFile()
Open "D:\Connection.UDL" For Binary As #iFileNum
Put #iFileNum, , strConnectionString
Close #iFileNum
End if