moddatabase.bas

MSHFLEXGRID 的打印的问题啊 啊就是打开附件啊时代

Attribute VB_Name = "modDatabase"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/10
'描  述：MSHFlexGrid 控件数据显示示例
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit
    
Public cn As New Connection
Public rs As New Recordset


Public Sub initDB()
    On Error Resume Next
    
    cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=" & App.Path & "\empDB.mdb;"
    cn.Open
    
    If cn.State = adStatusErrorsOccurred Then
        MsgBox "数据库链接错误!", vbCritical, "提示"
        End
    End If
    
End Sub