Написал с использованием ADO Но выдаёт ошибки
Посмотрите плз чего ему не нравится.

Private Sub Command2_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mStr As String
conn.Open "Provider=MSDAORA;Data Source=grain.terminal;User ID=prod;assword=prod;" на эту строку Object variable or With block variable not set
Set rs = conn.Execute("SELECT w.num, r.dat, r.id, w.dat_b, w.w_b, w.dat_t, w.w_t, o.Name, r.dat_i FROM WEIGHT w, oper o, registr r Where trunc(r.dat) = to_date('" & Form3.DTPicker1 & "', 'dd.mm.yyyy') and w.oper_b = o.num And r.num = w.num ORDER BY w.num")
Set zChi1 = rs
mStr = "<TABLE border=0 cellPadding=0 cellSpacing=0>"
Do While zChi1.EOF = False
mStr = mStr & "<TR><TD>" & zChi1!fld1 & "</TD><TD>"
mStr = mStr & zChi1!fld2 & "</TD></TR>"
zChi1.MoveNext
Loop
mStr.Add "</TABLE>" и сдесь Invalid qualifier
End Sub

Private Sub Command2_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mStr As String
Set conn = New ADODB.Connection
conn.Open "Provider=MSDAORA;Data Source=grain.terminal;User ID=prod;password=prod;"
Set rs = conn.Execute("SELECT w.num, r.dat, r.id, w.dat_b, w.w_b, w.dat_t, w.w_t, o.Name, r.dat_i FROM WEIGHT w, oper o, registr r Where trunc(r.dat) = to_date('" & Form3.DTPicker1 & "', 'dd.mm.yyyy') and w.oper_b = o.num And r.num = w.num ORDER BY w.num")
Set zChi1 = rs
mStr = "<TABLE border=0 cellPadding=0 cellSpacing=0>"
Do While zChi1.EOF = False
mStr = mStr & "<TR><TD>" & zChi1!fld1 & "</TD><TD>"
mStr = mStr &zChi1!fld2 & "</TD></TR>"
zChi1.MoveNext
Loop
'mStr.Add "</TABLE>"
mStr = mStr & "</TABLE>"
End Sub
Теперь ругается на эти места. Посмотрите пожалуйста.

mStr = mStr & "<TR><TD>" & rs!fld1 & "</TD><TD>"
mStr = mStr & rs!fld2 & "</TD></TR>"
Пишет что не удаётся найти объект в семействе, соответствующий требуемому имени или порядковому номеру.

Спасибо большое.
Ещё маленкий вопросик по этой теме.
Как мне сделать так чтобы запускался инет эксплорер и это всё дело отображалось там. Пример если можно.

Какая библиотека отвечает за FileSystemObject.
Как мне связать
Private Sub Command2_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mStr As String
Set conn = New ADODB.Connection
conn.Open "Provider=MSDAORA;Data Source=grain.terminal;User ID=prod;password=prod;"
Set rs = conn.Execute("SELECT w.num, r.dat, r.id, w.dat_b, w.w_b, w.dat_t, w.w_t, o.Name, r.dat_i FROM WEIGHT w, oper o, registr r Where trunc(r.dat) = to_date('" & Form3.DTPicker1 & "', 'dd.mm.yyyy') and w.oper_b = o.num And r.num = w.num ORDER BY w.num")
mStr = "<TABLE border=0 cellPadding=0 cellSpacing=0>"
Do While rs.EOF = False
mStr = mStr & "<TR><TD>" & rs!num & "</TD><TD>"
mStr = mStr & rs!dat & "</TD></TR>"
mStr = mStr & rs!id & "</TD></TR>"
mStr = mStr & rs!dat_b & "</TD></TR>"
mStr = mStr & rs!w_b & "</TD></TR>"
mStr = mStr & rs!dat_t & "</TD></TR>"
mStr = mStr & rs!w_t & "</TD></TR>"
mStr = mStr & rs!Name & "</TD></TR>"
mStr = mStr & rs!dat_i & "</TD></TR>"
rs.MoveNext
Loop
mStr = mStr & "</TABLE>"
End Sub

и

Public Sub AdoRecordsetToHTML(rst As ADODB.Recordset)
Dim fso As New FileSystemObject
Dim txtFile As TextStream
Dim strRecordset As String
Dim ie As Object
Dim strTempPath As String

strRecordset = rst.GetString(adClipString, , "</TD><TD>", "</TD></TR><TR><TD>", " ")

strTempPath = fso.GetSpecialFolder(TemporaryFolder) & "\Recordset.htm"
Set txtFile = fso.OpenTextFile(strTempPath, ForWriting, True)
With txtFile
.WriteLine "<TABLE BORDER=1><TR><TD>"
.WriteLine strRecordset
.WriteLine "<TR><TD>" & left(strRecordset, Len(strRecordset) - 8)
.WriteLine "</TABLE>"
.Close
End With
Set txtFile = Nothing

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate strTempPath
ie.Visible = True
Do While ie.readyState <> 4
DoEvents
Loop
Set ie = Nothing
fso.DeleteFile strTempPath
End Sub

Написать вторую часть в модуле а в Command2 Вызвать

Help me пожалуйста

Спасибо