code error 09 in vb 6 accounting system

[Doogle]

Look at your code again, in Post #45, unless my eyes deceive me there's a line there:

strSQL = "SELECT Price FROM Table"

Hint, it's immediately before the one in yellow.