Excel nije baza podataka tako da ti se to ne uklapa u pitanje (pristup je sasvim drugaciji).
Za Access mozes koristiti ADO za koji postoje uputstva koja je jos degojs radio (bilo ranije u TOP temama, vidi da li je josh uvek).
Za Excel moras imati instaliran Excel na tom racunaru i da koristis njegov objektni model (Project > References pa dodas). Imas vise primera ovde na forumu.

Znam da excel nije baza podataka, ali znam da moze da se koristi za cuvanje i iscitavanje podataka iz nje pa meni to isto dodje.

Ovaj sam kod preradio za svoje potrebe, probaj sa ovim:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String

rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic

sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
Set Read_Excel = rs
Set rs = Nothing