Dim intDataCount as integer
dim cmdDataCount as OleDbCommand
MyConnection.Open()
cmdDataCount 
= New OleDbCommand("SELECT count(*) From newstudentifo WHERE XXX ", MyConnection)
intDataCount 
= cmdDataCount.ExecuteScalar()
MyConnection.Close()
Response.
Write(intDataCount & "<BR>")