为何小弟我的代码不能录音

为何我的代码不能录音？

VB code

Option ExplicitPrivate Sub Command1_Click()   MMC.Command = "Stop"   MMC.Command = "Save"   MMC.Command = "Close"End SubPrivate Sub Form_Load()   Open "d:\1.wav" For Binary As #1   Close   MMC.DeviceType = "WaveAudio"   MMC.FileName = "d:\1.wav"   MMC.Command = "Open"   MMC.Command = "Record"End Sub