怎么在notes中联接sql server

Dim dataSource As String 
Dim userName As String 
Dim password As String 
Set con=New ODBCConnection 
Set uidoc=ws.CurrentDocument 
Set doc=uidoc.Document 
dataSource=doc.databs(0) 
userName=doc.user(0) 
password=doc.passt(0) 
If con.ConnectTo(dataSource,userName, password) Then 
doc.tbs=con.ListTables(dname) 
Call uidoc.refresh 
Msgbox"已经成功连接到数据库" 
Else 
Messagebox("与数据库连接失败") 
End If