VB调用mciSendString录音后爆音非常大，不知道怎么办

mciSendString("Open New Type WaveAudio Alias Wave", "", 0, 0)
mciSendString("Set Wave Time Format ms", "", 0, 0)
mciSendString("Set Wave Format tag pcm", "", 0, 0)
mciSendString("Set Wave Channels 1", "", 0, 0)
mciSendString("Set Wave Samplespersec 16000", "", 0, 0)
mciSendString("Set Wave BitsperSample 16", "", 0, 0)
mciSendString("Record Wave", "", 0, 0)

mciSendString("Stop Wave", "", 0, 0)
SaveFile = "Save Wave " & Chr(34) & App.Path & "\1.wav" & Chr(34)
mciSendString(SaveFile, "", 0, 0)
mciSendString("Close Wave", "", 0, 0)用wmp打开，发现成固定频率的沙沙声。
是不是设置的Samplespersec 等有问题？
或者麦克风的问题？
ps：或者能否给我一个更好的录音方案？这个方法需要修复wav，很麻烦。