Para criar uma função que busque dados do Access basta usar o seguinte modelo:

Function BuscaDados(Data As Double, Tipo As String)
  Dim objCon As ADODB.Connection
  Dim rs As ADODB.Recordset
  File = "C:\Temp\Teste.mdb"
  Tipo = "'" & Tipo & "'"
  Set objCon = New ADODB.Connection
  Set rs = New ADODB.Recordset
  strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & File & ";"
  objCon.Open strCnxn
  Set rs = New ADODB.Recordset
  strSQL = "SELECT * from Tabela1 where [Data] = " & Data & " and [Tipo] = " & Tipo
  rs.Open strSQL, objCon, adOpenStatic, adLockReadOnly
  strNaam = rs.Fields(Coluna).Value
  rs.Close
  BuscaDados = strNaam
  Set rs = Nothing
End Function

Outra forma de criar essa função você pode ver aqui.

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.