خطای connection open.sql does not exist or access denied

[bahar_azadi]

سلام
من در هنگام کار با vb برای open کردن db از نوع sql با پیغام
connection open.sql does not exist or access denied رو به رو میشم چه کار کنم؟




Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.Open "Provider=SQLOLEDB.1;Data Source=localhost;Initial Catalog=Process;User Id=sa;Password=;"
rs.Open "SELECT * FROM tbl_Process_mm", cn, adOpenStatic, adLockOptimistic
Set MSFlexGrid1.DataSource = rs
End Sub