Attribute VB_Name = "Module1"

Dim temp As String
Dim temp1 As String
Dim temp2 As String
Dim temp3 As String
Public jilu(6) As Long ' 記錄用戶定義收費的記錄個數
Public ji_0_star() As Long
Public ji_0_end() As Long
Public ji_0_sec() As Long
Public ji_0_yuan() As Single
Public ji_1_star() As Long
Public ji_1_end() As Long
Public ji_1_sec() As Long
Public ji_1_yuan() As Single
Public wa_0_star() As Long
Public wa_0_end() As Long
Public wa_0_sec() As Long
Public wa_0_yuan() As Single
Public wa_1_star() As Long
Public wa_1_end() As Long
Public wa_1_sec() As Long
Public wa_1_yuan() As Single
Public display As String
Public display1 As String
Public ji_com_click As Boolean '基本話費節日按鈕是否被單擊
Public star As Long '是否啟動上次使用情況窗體
Public fir_biao As Boolean '確定是啟動時，單擊frmsplash1，還是關閉時單擊frmsplash1
Public wa_week() As Long
Public wa_holiday() As Date
Public wa_holiday_jilu As Long
Public wa_week_jilu As Long
Public ji_week() As Long
Public ji_holiday() As Date
Public ji_holiday_jilu As Long
Public ji_week_jilu As Long
Public vtab As String ' 確定要打開哪一個表
Public he_shu As Long '記錄核算日
Public cday As Variant '記錄當前日子
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Public Con As New ADODB.Connection
Public ret As New ADODB.Recordset
Private Const ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="
Sub main()
Dim sql1 As String
sql1 = App.Path
If Right(sql1, 1) <> "/" Then
  sql1 = sql1 + "/"
End If
sql1 = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & sql1 & "\chen.mdb"
Con.Open sql1
sql1 = "select * from passwordtable"
ret.Open sql1, Con, adOpenStatic, adLockOptimistic

frmLogin.Show



End Sub