باز کردن فایل اکسل password دار

با سلام
من وقتی میخوام یک فایل اکسل پسورد دار را از طریق کانکشن استرینگ با دستور زیر باز کنم نمیتونم
کسی میتونه کمکم کنه!

OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=reports.xls;Extended Properties=Excel 8.0;Jet OLEDB:Database Password=1234"

این یک نمونست . روش کار کن :

PublicFunction OpenConnect() As ADODB.Connection

Dim com AsObject

com = New ADODB.Command

Dim dbPath AsString

dbPath = VB6.GetPath & "\" & "House.mdb"

cnConnection = New ADODB.Connection

cnConnection = New ADODB.Connection

With cnConnection

.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data source ='" & dbPath & "'; Jet OLEDB:database password=123")

EndWith

EndFunction

 

منم دقیقا همینو نوشتم ولی جوابی نگرفتم!!!
کسی میتونه کمک کنه؟

اکسل را نمیشه با این روش . این روش مال اکسسه!

تا اونجایی که من میدونم فقط در حالتی که در اکسل یک provider table یا یک فضای نام (یعنی چند تا خونه رو به یک نام نامگداری کرده باشی) می تونی از طریق ODBC به اون دسترسی پیدا کنی.که مثلا این فضای نام معال همان Table در یک پایگاه داده است.
در حالت پسورد دار بودن هم در هنگام باز کردن (در Connection string) باید پسورد رو بدی.
مثال زیر یک Connection syring در VC است که کافیه به جای هر S% اون عبارت مورد نظرتو قرار بدی

"Driver=%s;Dbq=%s;Uid=%s;Pwd=%s;"