值要用单引号
CommandText = "Ins ert Into XR人事表 (编号) Values('123456')"
CommandText = "Ins ert Into XR人事表 (编号) Values('" & s & "')"