带有HTTP数据源的ADO Connection和Recordset

Question

我从数据库表中读取下面的宏读数，该表存储为本地C驱动器上的txt文件并返回SQL查询。

Public Function getData(fileName As String) As ADODB.Recordset

Dim cN As ADODB.Connection
Dim RS As ADODB.Recordset
Set cN = New ADODB.Connection
Set RS = New ADODB.Recordset
cN.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Cloud\;Persist 
Security Info=False;Extended Properties=""text; HDR=Yes; FMT=Delimited; 
IMEX=1;""")
RS.ActiveConnection = cN
RS.Source = "select top 10 * from " & fileName
Set getData = RS

End Function

然后我可以使用下面的函数调用函数并返回数据，到目前为止一直很好......

Sub Cloud()

Dim a As ADODB.Recordset
Set a = getData("file.txt")
a.Open
MsgBox (a.GetString())
a.Close

End Sub

但现在我想移动＆＃39; file.txt＆＃39;从C：\ Cloud \到HTTP位置，即http://it.wont.work/

我如何修改上述内容才能使用？我已经进行了搜索和测试，但似乎没有任何工作......我要么登录失败，要么找不到ISAM。

非常感谢