Ok, not sure what's wrong here. Should'nt I be seeing a cursor in the
Data Session window? nConnHand is > 0.

oCA = CREATEOBJECT("caODBC")

RETURN


DEFINE CLASS caODBC AS CursorAdapter

  PROCEDURE Init
		
    OPEN DATABASE Pubs

    cSelectCmd 	= "select * from authors"
    cConnStr 	= "Driver=SQL Server;Server=MCMPC149;Databaser=Pubs"
    nConnHand 	= SQLCONNECT("cntPubs")

    WITH This
        .DataSource = nConnHand
        .SelectCmd = cSelectCmd
	.CursorFill()
    ENDWITH

  ENDPROC

  PROCEDURE Destroy
    IF This.DataSource > 0
      SQLDISCONNECT(This.DataSource)
    ENDIF
  ENDPROC

ENDDEFINE