>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() >