Программирование VBA

'в References
'[V] Microsoft DAO
'[V] Microsoft Scripting Runtime (по желанию к работе с access не имеет ни какого отношения,
'использовал для проверки наличия файла через fso)
Option Explicit
    Dim fso             As New FileSystemObject
    Public Db           As DAO.Database
    Public rs           As DAO.Recordset
    Const key           As String = ""
Public Function openDB() As Boolean
   Set fso = CreateObject("Scripting.FileSystemObject")
   If fso.FileExists("c:\db1.mdb") Then
        Set Db = OpenDatabase("c:\db1.mdb", 0, False, key)
        openDB = True
    Else
            If statDB = False Then
                MsgBox "Файл базы данных отсутствует", vbInformation, "Необходим откат системы"
            End If
        openDB = False
   End If
End Function
Public Function ShowInfo(tel As Double)
If openDB = False Then Exit Function
    Set rs = Db.OpenRecordset("SELECT tel.TELEFON, tel.NAME FROM tel WHERE (((tel.TELEFON)=" & tel & "))")
    MsgBox rs!Name
End Function