Finally solved the problem Thanks to Ron Beyer for valuable idea.
<pre lang="vb">Con.CursorLocation = adUseClient
Set cmd = New ADODB.Command
cmd.ActiveConnection = Con
cmd.CommandText = &amp;quot;select * from employees where Designation=&amp;#39;&amp;quot; &amp;amp; cmbodesig.Text &amp;amp; &amp;quot;&amp;#39;&amp;quot;
cmd.CommandType = adCmdText
Set rs = cmd.Execute
&amp;#39;rs.Open &amp;quot;SELECT COUNT(*) AS Posts FROM employees WHERE designation=&amp;#39;&amp;quot; &amp;amp; cmbodesig.Text &amp;amp; &amp;quot;&amp;#39;&amp;quot;, Con, adOpenDynamic, adLockPessimistic
temp = rs.RecordCount
DataReport1.Sections("Section2").Controls("Label5").Caption = temp & Me.cmbodesig.Text & "@"
Thank you