发信人: ganz()
整理人: winsy(2003-03-09 13:14:10), 站内信件
|
Private Sub Form_Load()
Dim rec As New ADODB.Recordset
Dim cn As New ADODB.Connection
With cn
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Password='';
User ID=Admin;Data Source=E:\GmHui\MYVB\127\INFOUSER.mdb"
End With
cn.Open
rec.Open "用户资料", cn, 1
rec.MoveLast
rec.MoveFirst
MsgBox rec.RecordCount
rec.Close
cn.Close
End Sub
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.101.200.104]
|
|