Microsoft Word - Sam's Teach Yourself MySQL in 21 Days - SAMS.doc

230 mCmd.ActiveConnection = mConn

240 mCmd.CommandType = 1 'Text

250 mCmd.CommandText = "SELECT * FROM Customers ORDER BY Last_Name"

260 'Opening the record set based on the Query from mCmd

270 rstCustomers.Open mCmd,,,1

280 %>

290

300

Here is a list of our

310 Customers

320

330

340

350

370

390

400

410 <%

420 ' Set our counter to 0

430 vRecordCount = 0

440 ' Walk through the recordset

450 Do Until rstCustomers.EOF