what am i doing wrong ????

VB Code:
  1. Set cnn = New ADODB.Connection

  2. strCnn = ADO_PROVIDER & DATA_SOURCE & App.Path & DBNAME

  3. cnn.Open strCnn

  4. Set rst = New ADODB.Recordset

  5. Set cmd.ActiveConnection = cnn

  6. cmd.CommandText = "tblFirstn"

  7. cmd.CommandType = adCmdTable

  8. Set rst = cmd.Execute

  9.  
  10.  
  11. Debug.Print rst.RecordCount