[RESOLVED] Database Delete

[Dbee]

 Sub Process_Data() 'Delete A Data Information
     Set_Title
     Set Connects = New ADODB.Connection
     Connects.Provider = "Microsoft.jet.oledb.4.0"
     Connects.Properties("Jet OLEDB:database Password").Value = Trim(Cfg.Data_Password)
     Connects.ConnectionString = "data source=" & AA(4)
     Connects.Open
     StrSql = ""
     StrSql = Table_Titles(12)
     StrSql = "DELETE FROM " & StrSql & " WHERE Account = '" & Acct & "'"
   '  Connects.Execute StrSql
     For T = 1 To 30
      StrSql = ""
      StrSql = Table_Titles(13)
      StrSql = "DELETE FROM " & StrSql & " WHERE Account = '" & Acct & "'"
      Connects.Execute StrSql
     Next
     Connects.Close
    End Sub 

The AA(3) is the location and name of the Database.

My problem is the Connects.Execute StrSql gives me and error database critor mismatch.
I set for the fields using the Table_Titles and it works in one program but for the life of me I must have missed something.
All references are set in the program that works and set the same in the one I am working on.