module1.bas

windows mobile 应用程序开发实践一书的源代码

Attribute VB_Name = "Module1"
Option Explicit

 

Public EditCode_Value As Integer ' 当前选中的编辑框代码
Dim Connection As ADOCE.Connection
Dim table, indextable As ADOCE.Recordset
Set Connection = CreateObject("ADOCE.Connection.3.1")
Set table = CreateObject("ADOCE.Recordset.3.1")
 

DBConnect


Public Sub DBConnect()
  
    Connection.Open "" & App.Path & "\books.cdb"
     If Err Then
        unexpectedError = True
        MsgBox "打开数据库失败，请检查", vbCritical
        Err.Clear
        App.End
    End If
      
End Sub