MSCOMM Problem

Hi

When i run executable file i get this error "Runtime Error-8018 Operation valid only when the port is open " .

This is the code

Public Sub open(comm1 As MSComm)
Dim portno, brate, dbits, sbits, hsval As Integer
Dim par, hs As String
Set rs = New ADODB.Recordset
If rs.State = 1 Then rsconfig.Close
rsconfig.Open "select * from config", cnn1, adOpenDynamic, adLockOptimistic, adCmdText
portno = rs!portnum
brate = rs!baudrate
dbits = rs!DATABITS
sbits = rs!stopbits
par = rs!parity
hs = rs!flowctrl

comm1.CommPort = portno

comm1.InputMode = comInputModeText
comm1.Settings = brate & "," & _
Left(par, 1) & "," & dbits & "," & sbits
If Trim(hs) = "None" Then
hsval = 0
ElseIf Trim(hs) = "comXonXoff" Then
hsval = 1
ElseIf Trim(hs) = "comRTS" Then
hsval = 2
ElseIf Trim(hs) = "comRTSXonXoff" Then
hsval = 3
End If
comm1.InputLen = 0
comm1.Handshaking = hsval

If comm1.PortOpen Then
comm1.PortOpen = True
Buffer = 0
comm1.InputLen = 11
Buffer = MSComm1.Input
Debug.Print "Receive - " & StrConv(Buffer, vbUnicode)
Else
comm1.PortOpen = True
Buffer = 0
comm1.InputLen = 11
Buffer = comm1.Input
End If
Buffer = 0
comm1.InputLen = 11
Buffer = comm1.Input

End Sub
Thanks