Isso é ASP ou VB ???
Se for ASP tá certo...
Se for VB, não coloca Server... fika assim:
Set cnn = CreateObject("ADODB.Connection")
Mas eu prefiro fazer assim (é mais rapido e mais seguro):
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Das duas formas faz a mesma coisa...