clinent_data.bas

一个比较简单通用的VB开发的通讯软件大家试试就知道了,请大家多多提宝贵意见

Attribute VB_Name = "clinent_data"
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub adddata()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
cn.Open
Set rs = cn.Execute("select * from data")
End Sub