phone.vb

Online Telephone Directory in Visual Basic

Option Strict Off
Option Explicit On
Module Module1
	Public ca As String
	Public db As DAO.Database
	
	Public Sub dbcon()
		db = DAODBEngine_definst.OpenDatabase(My.Application.Info.DirectoryPath & "\DataBase\DirDB.mdb")
	End Sub
End Module