ODBC Error with VB5.0

Hello, I am getting an "ODBC Error 3146 Driver does not support this function" when using the following code in vb5.0
It doesnt seem to like the Set RecSet = db.OpenRecordset(sqlString, dbOpenDynaset)

Public Sub Main()
Set ws = CreateWorkspace("ODBCWorkspace", "", "", dbUseODBC)

Workspaces.Append ws

Set db = ws.OpenDatabase("PostgreSQL", dbDriverNoPrompt, False, _
"ODBC;DATABASE=savvyshopper;UID=;PWD=;DSN=PostgreSQL")

frmMainMenu.Show

End Sub

Public Sub SavvyInit(db As Database)

sqlString = "select * " & _
"from adds " & _
"where storeid='106' and pricedesc='2.49';"

Set RecSet = db.OpenRecordset(sqlString, dbOpenDynaset)

frmAdDesign.txtDescription = RecSet!storeid.Value

End Sub

Any suggestions? :)

Thanks,

David Weiss david(at)i-active(dot)com

+====]=================================================>
Legal Warning: Anyone sending me unsolicited/commercial/junk/spam e-mail

WILL be charged a US $500 proof reading fee. DO NOT send unsolicited
advertisements and do NOT add my e-mail address to your list(s)!

"By US Code Title 47 Sec.227(a)(2)(B) a computer/modem/printer meets the

definition of a telephone fax machine. By Sec.227(b)(1)(C), it is
unlawful to send any unsolicited advertisements to such equipment.
By Sec.227(b)(3)(C), a violation of the aforementioned Section is
punishable by action to recover actual monetary loss, or $500,
whichever is greater, for each violation."
+====]=================================================>