phone.bas

Online Telephone Directory in Visual Basic

Attribute VB_Name = "Module1"
Public ca As String, db As Database

Public Sub dbcon()
Set db = OpenDatabase(App.Path & "\DataBase\DirDB.mdb")
End Sub