如下：
'//SUB Main启动
Sub main()
DBCON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DateBase\DateBase.mdb;Persist Security Info=False"
DBCON.Open
FrmSystemLoad.Show
End Sub

连接数据库..显示FrmSystemLoad窗口..