Dim intDataCount asinteger 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>")