Dim objCon As ADODB.Connection

Sub Conectar()
    Set objCon = New ADODB.Connection
    objCon.ConnectionString = "driver={PostgreSQL Unicode(x64)};server=localhost;database=Nomina;port=5432;uid=nolberto;pwd=nolberto;"
    objCon.Open
    Debug.Print "Conectado..."
End Sub

Sub CloseConnection()
    On Error Resume Next
    objCon.Close
    Debug.Print "coneccion cerrada..."
    Set objCon = Nothing
    On Error GoTo 0
End Sub

Sub Insertar()
    strSQL = "INSERT INTO empleados(nombre, apellido_pat, apellido_Mat, fecha_alta,fecha_nac, email, telefono, sueldo, empresa) " & _
        "Values('Maria', 'Perez', 'Armenta', '21-06-2011', '12-03-1994', 'maria@test.com', '66778365', '12000', 2)"
    objCon.Execute strSQL
End Sub

Sub Actualizar()
    strSQL = "UPDATE Alumnos SET Nombre= 'Ruben' WHERE ID=4"
    objCon.Execute strSQL
End Sub

Sub Eliminar()
    strSQL = "DELETE FROM Alumnos WHERE ID=5"
    objCon.Execute strSQL
End Sub

Sub Consulta()
    Dim fila, column As Long
    Dim miRango As Range

    fila = 0
    column = 0
    strSQL = "SELECT * FROM Empleados"
    Set objRecordSet = New ADODB.Recordset
    objRecordSet.Open strSQL, objCon
    'imprime etiquetas
    ThisWorkbook.Sheets(1).Range("A1").Activate
    For Each objField In objRecordSet.Fields
        ActiveCell.Offset(fila, column).Value = objField.Name
        column = column + 1
    Next
    Set miRango = ThisWorkbook.Sheets(1).Range("A2")
    miRango.CopyFromRecordset objRecordSet
    Range("A1").CurrentRegion.EntireColumn.AutoFit
End Sub