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 cn = CreateObject("ADODB.Connection")
  With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & File & ";"
    .Open
  End With
  strSQL = "SELECT * from Tabela1 where [Data] = " & Data & " and [Tipo] = " & Tipo
  Set rs = cn.Execute(strSQL)
  Resultado = rs.Fields(0).Value
  rs.Close
  BuscaDados = Resultado
  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.