phone.vb

来自「Online Telephone Directory in Visual Bas」· VB 代码 · 共 10 行

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