Visual Basic - Estudiante

Hola tengo un problema en Visual Basic ....

tras ejecutar este modulo en mi Pc q cuenta con SQL SERVER 200 Personal

Public CN As New ADODB.Connection
Public RSclientes As New ADODB.Recordset
Public RSpedidos As New ADODB.Recordset
Public RSdetalle As New ADODB.Recordset
Public V_code As Integer

Sub main()
----CN.Open "Provider=SQLOLEDB; Data Source =.; Initial Catalog= Northwind; USe ID=SA"
CN.CursorLocation = adUseClient
RSclientes.Open "customers", CN
RSpedidos.Open "Orders", CN
Form1.Show
End Sub

me sale una ventana de Error "ATRIBUTO DE CADENA DE CONEXION NO VALIDO" y marca la parte q yo indico con "----" de amarillo en Visual Basic, alguien tiene idea de q puede estar pasando ??????

Lo raro es q en otra PC q cuenta con SQL 2000 Personal si funciona normal

Lo que puedes hacer es probar la conexion con el control ADODC y si te sale bien copias la cadena de conexion en el codigo, mas claro checa este ejemplo:

http://www.elguille.info/colabora/vb2005/DavidLastra_CargarDatosProgresivamenteADO.htm

Nota: Puedes realizarlo primero con base de datos access y despues con BD SQL.