Visual Basic - Error: Conexion Sql Server de confianza!!

Hola!

Estoy intentando conectarme con VB 6.0 contra Sql Server 2000, mi código es el siguiente:

Private Base As ADODB.Connection

Private Sub Form_Load()
Dim sSql As String

Set Base = New Connection

With Base

'Abrimos y asignamos la base de datos
.Open "Provider = SQLOLEDB;" _
& "Data Source =PROGRAMACION2;" _
& "Initial Catalog = Northwind;" _
& "User Id = sa" _
End With
End Sub

Mi problema es que me devuelve el error: "Error de inicio de sesión del usuario 'sa'. Motivo: no stá asociado a una conexión de Sql Server de confianza", ¿Alguien sabe qué es y como solucionarlo?

El usuario esta creado y me pasa lo mismo si creo otro usuario distinto

Gracias!!!!!

Lo que debe estar pasando es que te falta agregar el password para realizar la conexion aqui te envio una linea de conexion como al utilizo yo espero y te sirva.

.Open "Provider=sqloledb;server=serverdatos;uid=" & vuser & ";pwd=" & vpwd & ";database=" & strBase