Display Record Count

[Llazwas]

Please forgive me as I'm very new to this.

I'm connecting to a ProvideX database trying to get a record count from one table. It looks like my connection is working okay and it appears that the code is actually counting the records but I'd like to display the count to verify. Is there a way to do that?

strConnectionString = "DSN=SOTAMAS90;UID=swk|ABC;PWD="
Set objCN = CreateObject("ADODB.Connection")
objCN.Open strConnectionString

Set objRS = CreateObject("ADODB.Recordset")
strSQLQuery = "SELECT count(*) from SY_UDT_HOLIDAY_CODE "
Set objRS = objCN.Execute(strSQLQuery)

 

[dabiri]

if not objRS.EOF then
objRS.MoveFirst
rec_count = objrs.Fields.Item(1)
end of

msgbox rec_count

 

[dabiri]

* end if