Visual Basic - Problemas con DHTML De visual basic

Hola a todos estoy usando el DHTML y estoy haciendo un form para consultas de una libreria,uso el sql server 2000 pero cuando carga la ejecucion me marca error "ESPECIFICACION DE AUTORIZACION NO VALIDA", les mando la ruta que estoy usando:

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub DHTMLPage_Load()

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=(local);" _
& "Initial Catalog=libreria"
cnn.Open 'AQUI ME MARCA ERROR'
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
ETC..............

A que se debe esto?...alguien puede ayudarme?

De antemano gracias.