Please Help with "Select...From" statement

I am trying to write a "Select and From Statement but keep getting error 214727900 and my VBA points to the .Open Options:=acCmdTable. I am referencing a table in my Select. Can someone help me out. Many Thanks in advance.



With TBLGapApprovedCostNew
.source = "SELECT TBLGapApprovedCosts.* From TBLGapApprovedCosts Where " _
& "TBLGapApprovedCosts.Application_Number='Numbe r';"
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.Open Options:=adCmdTable
End With