这段不打开EXCEL读写数据的VBA代码如何改成VB代码?

Sub Test()
 With CreateObject("ADODB.connection")
 .Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=NO;';Data Source=" &   ThisWorkbook.Path & "\W.XLS"
 arr = .Execute("select * from [SHEET1$H5:H5]").getrows
 .Execute "UPDATE [SHEET1$H5:H5] SET F1='" & arr(0, 0) + 1 & "'"
 .Close
 End With
 End Sub

以上VBA代码实现功能:不打开W.XLS,将SHEET1,H5中的值以原值加上1更新. 在EXCEL2003中测试成功.
请问以上VBA代码如何写成VB6代码?

[ 本帖最后由 ranrise 于 2012-9-10 15:43 编辑 ]