改成,如
.CreateFromDataTable(DataTables("htgl"),True,"ghs='" & fdr("ghs") & "'","qdrq desc","qdrq","htbh","cgbd","cghtje","ysfp","yfk","qke")