VB - MSSQL2000 ???

Private Sub Command1_Click()
Dim connection As New ADODB.connection
With connection
.ConnectionString = "Provider = SQLOLEDB.1; Persist Security Info = False;
Initial Catalog = pubs; Data Source = 10.1.1.106; Command Timeout = 20;"
.Open
End With
End Sub

При натискане на бутона се генерира съобщение за грешка :
Invalid connection string atribute

Забелязвате ли някаква фрапираща грешка ?

Това е от "SQL - ръководство на програмиста " , на Soft-Press

махни Command Timeout = 20; и пробваи пак
при мене мина

мисля че проблема не е в Command Timeout = 20 а в това че юзера с който се логнат в момента няма акаунт за SQL-а
такаче добави User ID=sa;Password='babayaga';