<div>
<br />
Here's one way:<br />
<br />
Dim rs As adodb.Recordset<br />
Set rs = New adodb.Recordset<br />
rs.Open &quot;Select tblholdingdata.date from tblholdingdata Where tblholdingdata.date=#&quot; &amp;&nbsp;Date &amp;&nbsp;&quot;#&quot;, dbs, adOpenForwardOnly, adLockReadOnly<br />
MsgBox rs.RecordCount<br />
rs.Close<br />
Set rs = Nothing
</div>



Here's one way:

Dim rs As adodb.Recordset
Set rs = New adodb.Recordset
rs.Open "Select tblholdingdata.date from tblholdingdata Where tblholdingdata.date=#" & Date & "#", dbs, adOpenForwardOnly, adLockReadOnly
MsgBox rs.RecordCount
rs.Close
Set rs = Nothing

<div>
<div class="content wysiwyg-content">
Hi EE<br />
<br />
A little stuck here, I have a from in VB6 and I want to show the number of records in a table with todays date<br />
<br />
&nbsp;Set dbs = New ADODB.Connection<br />
&nbsp;dbs.ConnectionString = &quot;Provider=Microsoft.Jet.OL<wbr />EDB.4.0;Da<wbr />ta Source=C:\test\backend.mdb<wbr />;&quot;<br />
&nbsp;dbs.Open<br />
<br />
numbertoday.Text = dbs.Execute(&quot;SELECT tblholdingdata.date, Count(tblholdingdata.messa<wbr />ge)&quot;) _<br />
&amp;&nbsp;&quot;From tblholdingdata&quot; _<br />
&amp;&nbsp;&quot;GROUP BY tblholdingdata.date&quot; _<br />
&amp;&nbsp;&quot;HAVING (((tblholdingdata.date)=Da<wbr />te()));&quot;<br />
<br />
I am probably going the wrong way about this, any ideas?<br />
<br />
Thanks in advance
</div>
</div>


Hi EE

A little stuck here, I have a from in VB6 and I want to show the number of records in a table with todays date

 Set dbs = New ADODB.Connection
 dbs.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\backend.mdb;"
 dbs.Open

numbertoday.Text = dbs.Execute("SELECT tblholdingdata.date, Count(tblholdingdata.message)") _
& "From tblholdingdata" _
& "GROUP BY tblholdingdata.date" _
& "HAVING (((tblholdingdata.date)=Date()));"

I am probably going the wrong way about this, any ideas?

Thanks in advance

Text box on a form to show number of records with todays date

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.