clinent_data.bas

来自「一个比较简单通用的VB开发的通讯软件大家试试就知道了,请大家多多提宝贵意见」· BAS 代码 · 共 10 行

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