*.wav file

Why *.wav file created by the follow code Cann't play by Media Player?
When I use Media Player to play it,Media Player report "Cann't found
decode program",but I Can use recorder of Windows to play it.What should
I do in order to let Media Player play ?

Thanks For Any Help :)

*****************************************
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
retval = mciSendString("open new type waveaudio alias wave", "", 256, 0)
retval = mciSendString("set wave bitspersample 16", "", 256, 0)
retval = mciSendString("set wave samplespersec 44100", "", 256, 0)
retval = mciSendString("set wave channels 2", "", 256, 0)
retval = mciSendString("record wave", "", 256, 0)
End Sub

Private Sub Command2_Click()
Dim commandstring As String
retval = mciSendString("stop wave", "", 256, 0)
commandstring = "save wave" & " C:\test.wav"
retval = mciSendString(commandstring, "", 256, 0)
retval = mciSendString("close wave", "", 256, 0)
End Sub
***********************************************8