forse
Sub connetti()
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open conn "dsn=sedo;uid=sedodba;pwd=manager;"
End Sub