我嘗試了每次迭代都可以在網上找到，但我仍然返回-1^爲我的記錄集計數，而不是實際計數。我嘗試了CursorType, LockType, & CursorLocation的多種組合。這是我的代碼。 Sub test()
Dim FullQry As String
Dim qry1 As String
Dim qry2 As String
Dim qry3 A
我發現可以這樣做的帖子，因此我假設我的崩潰與底層的LDAP和Active Directory有關。 任何想法讚賞！ Private objRecordset As ADODB.Recordset
Private Sub Form_Open(Cancel As Integer)
Dim objConnection As ADODB.Connection
Dim objComm
我在Excel工作簿下面的代碼，我從this page.複製 代碼： Sub Button1_Click()
Dim con As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim WSP1 As Worksheet
Set con = New ADODB.Connection
Set c
請幫助我。我在這裏呆了好幾個星期。我不知道如何解決它。 這裏是我的連接代碼： Imports System.Text.RegularExpressions
Module globalmodule
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rss As New ADODB.Reco