vb html 转为表格,VB6.0 webBrowser写入HTML语言并将Recordset返回为HTML表格

窗种是来它开理近网万讲是效是近网万讲是效是体里添加webBrowser1 (在部件里添加Microsoft internet control)和 Command1控件。 运用以下的函数将 Adodc1.Recordset 返回到HTML表格中，为什么实现不了啊？哪位高手支支招？？器的功久含请业屏随气域实控近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机？

Private Sub Command1_Click()

Dim strHtml As String

strHtml = "" & vbCrLf

strHtml = strHtml & "

" & vbCrLf

strHtml = strHtml & "" & vbCrLf

strHtml = strHtml & "

报告单

" & vbCrLf

strHtml = strHtml & "

" & vbCrLf

strHtml = strHtml & ReturnHTMLTable(Adodc1)

strHtml = strHtml & "

" & vbCrLf

strHtml = strHtml & "Hello" & vbCrLf

strHtml = strHtml & "" & vbCrLf

strHtml = strHtml & "

" & vbCrLf

strHtml = strHtml & "" & vbCrLf

strHtml = strHtml & "" & vbCrLf

WebBrowser1.Document.body.innerHTML = strHtml

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate2 "about:blank"

End Sub

-----------------------------------------------------------------------

Function ReturnHTMLTable(tmpAdodc)

Set rs = tmpAdodc.Recordset

rs.MoveFirst

response.Write "

response.Write "

"

For Each oField In rs.Fields

response.Write "

" & oField.Name & ""

Next

response.Write "

"

Do While Not rs.EOF

response.Write "

"

For Each oField In rs.Fields

response.Write "

"

If IsNull(oField) Then

response.Write " "

Else

response.Write oField.Value

End If

response.Write "

"

Next

rs.MoveNext

response.Write "

"

Loop

response.Write "

"

End Function