Visual Basic - no entiendo este error

tengo esto:
Private Sub Form_Load()
Dim coneccion As ADODB.Connection
Set coneccion = New ADODB.Connection

With coneccion
.ConnectionString = "Provider = SQLOLEDB.1;" & _
"Persist Security Info = False;" & _
"UserID = sa;" & _
"Initial Catalog = cartolas4betaSQL;" & _
"Data Source = sleyton"
.Open
End With
End Sub
ok,
pero, al iniciar el programa me da el siguiente error
"login falied user sleyton"
no entiendo, tengo ke configuar origen de datos ODBC y si es asi, como? gracias

Probablemente tenga otro UserId diferente a sa el servidor y ademas contraseña, cerciorate de eso primero.