Many thanks for ur valuable reply, When i run this code iam getting a error:Unknown name CreateParameter is my code correct oCommand:=CreateObject("ADODB.Command")oCommand:ActiveConnection:=oConoCommand:CommandType:=adCmdStoredProcoCommand:CommandText:="Sp_Job1"oCommand:Parameters:Append(oCommand:CreateParameter("Ename",adVarChar,adParamInput,25, ...