Conexion Visual Basic a Postgresql

Posteo el siguiente codigo que estoy utilizando para conectarme a una
BASE DE DATOS

Declaracion de variables

Dim m_cn As New ADODB.Connection
Dim rst As New ADODB.Recordset

--------------------------------------------------------------------------------------------------------
Sub main()

sSQL = "SELECT * FROM Almacen.Productos"
sCon = "driver={PostgreSQL};DATABASE=Control_Almacen;SERVER=localhost;PORT=5432;UID=xxxxx;pwd=xxxx"
m_cn.ConnectionString = sCon
m_cn.Open
With rst
.ActiveConnection = m_cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open sSQL
End With
MsgBox ("conexion exitosa")

End Sub
El error que se muestra al ejecutar en este caso es "ERROR: schema
"Almacen" does not exits"

al escribir en la linea:
sSQL = "SELECT * FROM Productos"
El error que se muestra al ejecutar en este caso es "ERROR: relation
"productos does no exits""

El esquema ALMACEN en la base de datos CONTROL ALMACEN existe, y la
tabla PRODUCTOS tambien existe cual podria ser el error que estoy
cometiendo.
Tengo instalado el pOstreSQL en WINXP

Saludos

Edward