You don't have Update, Insert, Delete commands in this code - otherwise what exactly do you want to improve here?

>Hi All,
>i want to improve below codes generated from DataExplorer for Insert-Update-Delete to SQLCE how would be your suggestions.
>
>
>
>

>* This script handles the ADO Connection and uses a CursorAdapter object
>* to retrieve data to a cursor.
>
>Public oCA As CursorAdapter
>Local oConn As ADODB.Connection
>Local oRS As ADODB.Recordset
>Local oException As Exception
>Local cConnString
>
>* Handle connections - insert connection code
>cConnString = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;"+;
>	"Data Source=D:\Depomatik.sdf"
>Try
>	oConn  = Createobject('ADODB.Connection')
>
>	* Ensure that you handle userid and password if not
>	* specified in connection string.
>	*   ex. oConn.Open(cConnString, userid, password)
>	oConn.Open(cConnString)
>
>	oRS = Createobject("ADODB.Recordset")
>	oRS.Datasource.CursorLocation = 3   &&adUseClient
>	oRS.Datasource.LockType = 3   &&adLockOptimistic
>	oRS.ActiveConnection = oConn
>
>	oCA=Createobject("CursorAdapter")
>	oCA.DataSourceType = "ADO"
>	oCA.Datasource = oRS
>	oCA.MapBinary = .T.
>	oCA.MapVarchar = .T.
>
>	oCA.Alias = "CARI"
>	oCA.SelectCmd = "SELECT * FROM CARI"
>	oCA.UpdateCmd = ""
>	oCA.InsertCmd = ""
>	oCA.DeleteCmd = ""
>
>	If !oCA.CursorFill()
>		* Replace with error code here
>		Local laError
>		Dimension laError[1]
>		Aerror(laError)
>		Messagebox(laError[2])
>	Else
>		* Replace with user code here. Code below allows for
>		* you to edit and send updates to the backend.
>		Local laFlds,lcStr,lnFldCount,i
>		Dimension laFlds[1]
>		lnFldCount=Afields(laFlds)
>		lcStr=""
>		For i = 1 To lnFldCount
>			lcStr = lcStr + laFlds[m.i,1] +  ","
>		Endfor
>		oCA.UpdatableFieldList = lcStr
>		BROWSE NORMAL NOWAIT
>	Endif
>
>Catch To oException
>	* Replace with exception handling code here
>	Messagebox(oException.Message)
>Endtry
>
>* Add user code here.
>* Note: cursors created by CursorAdapter object are closed when object is released.
>