添加新记录时显示数据错误

你把 你的 SQL 命令显示出来就知道什么地方错了。
strSql = "Insert Into [vpdn](name,username,password,WSSBYHM,WSSBMM) Values(Text1.Text,Text2.Text,Text3.Text,Text4.Text,Text5.Text)"

----------------
Text1.Text,Text2.Text,Text3.Text,Text4.Text,Text5.Text
全放在 引号之前，是直接使用这个字符串，而不是取这几个控件的值。
学习一下字符串连接方面的内容。