急、急、急...这段vb通讯程序为什么始终没有响应？

[iamchinese]

下面这段程序为什么运行后始终没有反应？delphi中利用MScomm控件对串口进行数据读写有可行的方法吗？请各位高手指教！
Private Sub Form_Load()
Dim Instring As String
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "ATV1Q0" & Chr$(13)
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCrLf)
MSComm1.PortOpen = False
End Sub
急 、急 ...

[sep]

?MScomm1.Rtsenabled=true
?mscomm1.dsrhoding=true
注意mscomm1各CD属性