mdbdata.bas

星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V2.0的核心结合而开发成的! 星子行V1.0是单反接正法,星子行V2.0是多反接法,星子行V3.0以上版本都是多反

Attribute VB_Name = "Mdbdata"
'在工程中引用Microsoft   ActiveX   Data   Objects   2.x   Library
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub Msgdata()

On Error GoTo Mderr

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Msda.Mdb;Persist Security Info=False"
cn.Open
Set rs = cn.Execute("select * from Data")

Exit Sub

Mderr:

End Sub