Clipper/FiveWin - manejar mdb's con FW

Hola a todos:

Tengo la necesidad de manipular un tabla de access , he vito algunos ejemplos , como este:
#INCLUDE "FIVEWIN.CH"
#INCLUDE "XBROWSE.CH"
#INCLUDE "HBADO.CH"
#DEFINE xConnStr "Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=.\taller.mdb;"
#DEFINE STR_LARGO 4096
Static oWnd, aSql
// ------------------------------------------------------------------------ //
// laboratorio SQL para el Aprender y entrenar lo que vayamos aprendiendo
// en clases de Bases de datos.
// programa completamente desarrollado en xharbour + fivewin + ado
// ------------------------------------------------------------------------ //
FUNCTION Main()
LOCAL oFont, oIcon, oCbx, cCbx
LOCAL oImgList, oReBar, oToolBar, oErr, oBmp
bla, bla bla.................

solo que no he podido conseguir el hbado.ch ................

En este otro:....................

include "FiveWin.ch"
#include "Report.ch"
#include "InKey.ch"

//----------------------------------------------------------------//
Function Main(bPrc, bAdc, bAlt, bExc, bImp, bSai)

local aData := {}
Local nFor
Local oLbx, cItem
Local btnPrc, btnAdc, btnAlt, btnExc, btnImp, btnsai
public oOdbc, oDbf, oDlg2

DEFAULT bPrc := { || RecPrc( oLbx ) },;
bAdc := { || RecInc( oLbx ) },;
bAlt := { || RecAlt( oLbx ) },;
bExc := { || RecExc( oLbx ) },;
bImp := { || RecImp( oLbx ) },;
bSai := { || oDlg2:End() }

SET 3D LOOK ON

oOdbc := TOdbc():New("test","","")

If !oOdbc:lSuccess
oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...")
oOdbc:End()
return nil
Endif
etc, etc, etc.........

marca "sqldriver connect error from Todbc:New()"

Si alguien ha manejado algo sobre esto, se los agradecere muchisimo
Saludos

Esto es mucho mas facil:

Y en la www.capelblog.com, hay un ejemplo completo de Altas bajas y modificaciones sobre tablas SQL Server.

#define adOpenForwardOnly 0
#define adOpenKeyset 1
#define adOpenDynamic 2
#define adOpenStatic 3

#define adLockReadOnly 1
#define adLockPessimistic 2
#define adLockOptimistic 3
#define adLockBatchOptimistic 4

FUNCTION MAIN()

LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )

oRs:Open( "SELECT * FROM Clienti", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clienti.mdb", adOpenKeyset, adLockReadOnly )

oRs:MoveLast()

WHILE !oRs:EOF
? oRs:Fields( "Cliente" ):Value
oRs:MoveNext()
ENDDO

oRs:Close()

INKEY( 0 )

RETURN NIL