Hi Michael i use DBGETPROP as follows. I thnks cursor adapter is also an option

Local lcDBCSQLSTRING,oODBCError as Exception ,lcDBConStr as String 

lcDBCSQLSTRING=This.get_odbc_string()  

TRY 

	If Empty(Dbc())
		Open Database (This.maindbc)
	endif
	
	SET DATABASE TO (this.maindbc )
	
	If !Indbc('DBCCONN', 'CONNECTION')
			Create Connection DBCCONN Connstring  (lcDBCSQLSTRING)
	ELSE
		lcDBConStr=DBGETPROP('DBCCONN', 'CONNECTION','ConnectString')
	

		IF ALLTRIM(lcDBConStr)!=ALLTRIM(lcDBCSQLSTRING)
			=DBSETPROP('DBCCONN', 'CONNECTION','ConnectString',lcDBCSQLSTRING)
	
		ENDIF
		
	Endif




CATCH TO oODBCError
	=MESSAGEBOX(oODBCError.Message) 
ENDTRY