Visual Basic - algo simple se convirtio en una pesadilla

hola, estoy tratando de conectar vb con sql aqui tengo el codigo pero me sale erro,r no se si tiene algo que ver la misma configuracion del sql o la base de datos, aqui esta el codigo, gracias por la ayuda

Private Sub Form_Load()
Dim cn As ADODB.Connection
On Error Resume Next
Set cn = New ADODB.Connection
With cn
.Provider = "SQLOLEDB"
.ConnectionString = "Data Source=user;" & _
"Initial Catalog=mibasededatos;" & _
"User Id=sa;" & _
"Password="

.Open
End With
If cn.State = adStateClosed Then
Beep
MsgBox "Error en Conexión", vbOKOnly + vbCritical, "Verificando Conexion"

Exit Sub
End If
MsgBox "Conexión Realizada con Exito", vbOKOnly + vbExclamation, "Vericando Conexion"

End Sub

revisa bien lo del password, eso lo debes saber