mdbdata.bas

星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网,管理速度快,连接简单方便.注意:星子行连接可用 于带路由主机与带路由主机之间连接,非路由与非路由之间连接.带

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