Puedes utilizar ADO u OLE Automation, para lo primero revisa en http://www.able-consulting.com/MDAC/ADO/Connection/ODBC_DSNLess.htm#ODBCDriverForExcel
Para lo segundo, primero agrega la referencia a Excel a tu proyecto:
Dim objExcel As Excel.Application, MiCelda As Variant
Set objExcel = New Excel.Application
With objExcel
.Workbooks.Open "MiArchivo.xls"
.Range("A1").Select
MiCelda=.ActiveCell.FormulaRC1
.Visible=True
End With
Luego la variable MiCelda la puedes utilizar para almacenar el valor en tu BD.