Public WithEvents rdso As RDS.DataControl
Dim rs As ADODB.Recordset
Private Sub Connect_Click()
rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & DBPath.Text
rdso.SQL = "Select * From 文章"
rdso.FetchOptions = adcFetchBackground
rdso.ExecuteOptions = adcExecAsync
rdso.Refresh
End Sub
Private Sub Form_Load()
Set rdso = New RDS.DataControl
rdso.Server = RemoteServer.Text
End Sub
Private Sub Form_Resize()
RemoteServer.Width = Me.ScaleWidth
DBPath.Width = Me.ScaleWidth
End Sub
Private Sub rdso_onreadystatechange()
If rdso.ReadyState = adcReadyStateComplete Or _
rdso.ReadyState = adcReadyStateInteractive Then
Set rs = rdso.Recordset
'-------------這行有錯--------------------
If rs.State = adStateClosed Then
'-----------------------------------------
MsgBox "無法讀取資料，設定可能有誤。", vbInformation, "錯誤"
Else
Debug.Print "complete"
'DoSomething
End If
End If
End Sub
Private Sub RemoteServer_Change()
rdso.Server = RemoteServer.Text
End Sub
Private Sub Stop_Click()
rdso.Cancel
End Sub
作業環境:Windows98SE+VB6(SP3)+Office2000+IE5
rdso.recordset是個空物件(Nothing)，這就是問題所在，
執行王國榮的範例程式也有這樣的錯誤，同一個地方。
幫幫我吧！