>>loConn = Createobject([ADODB.Connection]) >>loCmd = Createobject([ADODB.Command]) >>*** >>lsDataBase = "C:\MyDataBase.DBC" >>Text to lcString textmerge noshow pretext 1 >> Provider=VFPOLEDB.1;Data Source=<<lsDataBase>>;Password="";Collating Sequence=MACHINE >>EndText >>loConn.ConnectionString = lcString >>loConn.Open() >>loCmd.ActiveConnection = loConn >>*** >>lsSql = "Select id from customer where id = ?" >>loParameter = loCmd.CreateParameter("pPar", 3, 1, 10, 19) >>loCmd.Parameters.Append(loParameter) >>*** >>loCmd.CommandText = lsSql >>loRs = loCmd.Execute() && Generate error >>*** >>loConn.Close() >>