下面例子可以自行实作测试
Private Sub Command1_Click()
Dim countDB As Connection'定义Connect物件
Dim countRS As Recordset'定义Recordset物件
Set countDB = New Connection'指派成新的connect物件
Set countRS = New Recordset'指派成新的Recordset物件
Dim i As Integer
countDB.CursorLocation = adUseClient'使用本端资料指标程式库所提供的用户端资料指标 ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容