Query returned unhandled type 16411

Hi,

I have tried several installs of postgresql-8.1.3-1 and postgresql-8.1.4-1,
with psqlodbc-08_02_0002.zip and PgOleDb-1.0.0.20.zip.

After each uninstall I delete the entire contents of the C:\Program
Files\PostgreSQL directory.

I am using VB6 SP6b.

My 'Connection' string is:

Provider=PostgreSQL OLE DB Provider;Password=xxxxxx;User ID=postgres;Data
Source=127.0.0.1;Location=spatial;Extended Properties=""

When the following code runs against a table with a geometry column I get
the following error:

Query returned unhandled type 16411

The code generated the string :

select the_geom from singleton limit 1;

If I change the code to be:

select asText(the_geom) from singleton limit 1;

there is no error produced.

If I run the query against any non-spatially enabled table like"

select * from pg_stat_user_tables;

there is no error produced.

I.E. I am sure it relates to the geometry field:

All my other queries work, including inserting geometry although I do use
the ascii version for the geometry.

Regards

Roger Merritt

PS:

Here is the source code from my VB6 project:

Set PGSConnection = New ADODB.Connection

With PGSConnection

Call .Open(GetPostgresConnectionString(txt_Server_IP, txt_Database,
txt_PortNo, txt_LoginName, txt_Password), txt_LoginName, txt_Password)

End With

If PGSConnection.State <> 1 Then

MsgBox "Connection String is: " +
GetPostgresConnectionString(txt_Server_IP, txt_Database, txt_PortNo,
txt_LoginName, txt_Password), vbOKOnly, AppName + " Database did not open?"

Set PGSConnection = Nothing

Exit Function

End If

Dim PGS_RecSet As ADODB.Recordset, RecCount As Long, Cntr As Long,
PGSField As ADODB.field

Set PGS_RecSet = New ADODB.Recordset

With PGS_RecSet

.ActiveConnection = PGSConnection

.CursorLocation = adUseClient

.CursorType = adOpenKeyset

.LockType = adLockReadOnly

.Open Source:="select the_geom from " + TableName + " limit 1;"

'.Open Source:="select * from pg_stat_user_tables;"

End With