Eric,

Thanks for your replied. I found the error.
A stupid common error!!. I missed spell a Keyword.

cnPhone.ConnectionString = "Provider = SQLOLEDB;" & _
>                            "User ID=sa;" & _
>                            "Data Source = WEBDEV;" & _
>                            "Inital Catalog = phone"

'Inital Catalog' should spell 'Initial Catalog'

Thanks

Sergio