PostgreSQL ODBC 

  Dim cn as Variant

  Dim sql as String

  Dim rs as Variant

  set cn = CreateObject ("ADODB.Connection")

  cn.Open "dsn=PostgreSQL;uid=sak;pwd=sak"

  cn.CursorLocation = 3

   sql = "create table testm ("

  sql = sql & "id[char(8),"

  sql = sql & "nombre[char(20),"

  sql = sql & "apellido[char(20),"

  sql = sql & "asignatura[char(25)"

  sql = sql & ")"

  cn.Execute sql

   cn.BeginTrans

   cn.Execute "insert into testm values ('val1','val2','val3','val4')"

  cn.Execute "insert into testm values ('val1','val2','val3','val4')"

  cn.Execute "insert into testm values ('val1','val2','val3','val4')"

  cn.Execute "insert into testm values ('val1','val2','val3','val4')"

   cn.CommitTrans

   set rs = cn.Execute("select * from testm")

   do until rs.EOF

    print rs.EOF

    rs.MoveNext

  loop

   rs.Close

   cn.Close