ayuda con Visual Basic 6.0 y SQL

[programador0716]

Hola tengo un problema.
Soy nuevo en programacion, tengo un trabajo en visual basic y sql, necesito conectar una base de datos desde visual a sql.

Tengo el siguiente codigo pero me muestra un error en la conexion de la base de datos, es usuario y la contraseña, no se cuales son o como detectarlos si alguien me puede ayudar se lo agradezco mucho.
Public cnn As ADODB.Connection

Sub Main()
'On Error GoTo mierror
Set cnn = New ADODB.Connection 'coneccion
cnn.CursorLocation = adUseClient 'cursor cliente
With cnn
.Provider = "SQLOLEDB.1" 'Proveedor
.ConnectionString = "User ID=sa; PWD=sa;Initial Catalog=bd_sistema;Data Source=SISTEMA" 'origen de datos
.Open 'abrir origen
'mierror:
'MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number
'Exit Sub
End With
frmlogin.Show 'mostrar formulario de login
End Sub