Postgresql : Realizar la Conexion desde Vb 6

PsqlODBC es el Odbc necesario para poder realizar la conexion.

Variables
strBD : Nombre de Base de Datos
strIP1 : IP del Servidor
strBDU : Usuario con que se conecta
strBDP : Password del usuario

Codigo Vb para la conexion:

Dim strconect As String
On Error GoTo Error
Set cnnMain = New Connection
With cnnMain
.CursorLocation = adUseClient
.CommandTimeout = 30
strconect = " DRIVER={PostgreSQL}" & _
";DATABASE=" & strBD & _
";SERVER=" & strIP1 & _
";PORT=5432;UID=" & strBDU & _
";PWD=" & strBDP & ";"
.ConnectionString = strconect
''.CommandTimeout
.Open
End With
abrirconeccion = True