Visual Basic - Ayuda por favor!! Ultima actualización datos Excel

Hola a tod@s

Necesito ayuda, a ver si me podeis echar un cable.

Tengo una hoja Excel conectada con Oracle mediante una macro. Lo que necesito es que cuando abra la Excel, conecte con la BD y me actualice los datos desde la BD a la Excel y sino, que me saque un msgbox con la fecha de la última actualización de la Excel. Os dejo el código que tengo hasta el momento:

Sub DisplayDBATables()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim col As Integer
Dim row As Integer

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open ( _
"User ID=ftops" & _
";Password=ftops" & _
";Data Source=boom" & _
";Provider=MSDASQL")

If not cn.Open Then
MsgBox ("Ha sido imposible la conexión con el servidor. La fecha de la última actualización fue:") 'AQUÍ ES DONDE IRÍA LA FECHA DE LA ÚLTIMA ACTUALIZACIÓN DE LA EXCEL QUE NECESITO SACAR

Else

rs.Open "select * from FLIGHTS", cn

col = 0

' First Row: names of columns
Do While col < rs.Fields.Count
Cells(1, col + 1) = rs.Fields(col).Name
col = col + 1
Loop

' Now actual data as fetched from select statement
row = 1
Do While Not rs.EOF
row = row + 1
col = 0

Do While col < rs.Fields.Count
Cells(row, col + 1) = rs.Fields(col).Value
col = col + 1
Loop

rs.MoveNext
Loop
End If
End Sub

Agradecería vuestra pronta ayuda.

Un saludo.

Buenas, una posible solución es usando las funciones de archivos (obtener los atributos del mismo) y colocar la última fecha que fue accesado. Espero te sirva.