[HELP!]Problem with my APP

[FireKnox101]

Ok i was reading this artical on how to make a GPS app for your pda, heres the link http://www.devx.com/wireless/Article/32938, i know the app this guy made is in 2005, but i found other ways of doing what he did, heres were im stuck, i load my app up on to my pda and when i hit Connect to GPS i get this exception,

System.ApplicationException:CreateFile Failed: 161

What am i doing wrong??? heres my code,

Imports OpenNETCF
 
Public Class frmMain
    Inherits System.Windows.Forms.Form
 
Windows Form Designer generated code
 
    '---serial port to connect to the GPS receiver---
    Private WithEvents serialPort As New IO.Ports.SerialPort
 
    '---IP address of the server---
    Private ServerIP As String = "Some IP adress"
 
    '---the ID of the user---
    Private ID As String = "1"
 
    '---use for synchronization---
    Dim sync As New Sync
 
    Public Delegate Sub myDelegate()
 
    Public Sub updateTextBox()
        txtGpsData.Text += serialPort.ReadExisting()
        Dim lines() As String = txtGpsData.Text.Split(vbLf)
        If lines.Length < 2 Then
            Exit Sub
        End If
        If txtGpsData.Text.Length >= 500 Then
            '---clear until the last $---
            txtGpsData.Text = _
               txtGpsData.Text.Substring(txtGpsData.Text.LastIndexOf("$"))
        End If
        If lines(lines.Length - 2).StartsWith("$GPGGA") Or _
           lines(lines.Length - 2).StartsWith("$GPRMC") Then
            processGPSData(lines(lines.Length - 2))
        End If
    End Sub
 
    Private Sub DataReceived( _
           ByVal sender As Object, _
           ByVal e As IO.Ports.SerialDataReceivedEventArgs) _
           Handles serialPort.DataReceived
        txtGpsData.Invoke(New myDelegate(AddressOf updateTextBox))
 
    End Sub
 
    Private Sub processGPSData(ByVal str As String)
        Dim rawLatLng As Double
        Try
            '---separate the GPS data into various fields---
            Dim field() As String
            field = str.Split(",")
            Dim lat, lng As Double
 
            Select Case field(0)
                Case "$GPGGA"
                    '---latitude---
                    rawLatLng = Convert.ToDouble(field(2))
                    lat = (rawLatLng \ 100) + _
                         ((rawLatLng - ((rawLatLng \ 100) * 100)) / 60)
 
                    '---latitude is negative if South---
                    If field(3) = "S" Then
                        lat *= -1.0
                    End If
 
                    '---longitude---
                    rawLatLng = Convert.ToDouble(field(4))
                    lng = (rawLatLng \ 100) + _
                         ((rawLatLng - ((rawLatLng \ 100) * 100)) / 60)
 
                    '---longitude is negative if West---
                    If field(5) = "W" Then
                        lng *= -1.0
                    End If
 
                    '---display the lat and lng---
                    lblLat.Text = "Lat:" & lat
                    lblLng.Text = "Lng:" & lng
 
                    '---synchronize with the server---
                    sync.PerformSync(ServerIP, ID & ":" & lat & ":")
 
                Case "$GPRMC"
                    '---display the speed---
                    If field(7) = String.Empty Then
                        lblSpeed.Text = "Speed: 0 km/h"
                    Else
                        lblSpeed.Text = "Speed: " & _
                         (Convert.ToDouble(field(7)) * 1.85).ToString _
                         & " km/h"
                    End If
            End Select
        Catch
            MsgBox("An error has occurred")
        End Try
    End Sub
 
    Private Sub mnuConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuConnect.Click
 
        '---close the port if it is already open---
        If serialPort.IsOpen Then
            serialPort.Close()
        End If
 
        '---set the parameters and open the port---
        Try
            With serialPort
                .PortName = "COM7"
                .BaudRate = 9600
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
            End With
            serialPort.Open()
 
            '---disable the Connect GPS menu item---
            MenuItem1.Enabled = False
 
            '---enable the Disconnect menu item---
            MenuItem3.Enabled = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub
 
    Private Sub mnuIP_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuIP.Click
 
        '---Input box for the user to enter the servers ip---
        ServerIP = InputBox( _
       "Please enter the IP address of server", "Server IP")
 
    End Sub
 
    Private Sub mnuID_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuID.Click
 
        '---Lets the user tell the server the differenc between differnt users---
        ID = InputBox("Please enter your ID", "ID")
 
    End Sub
 
    Private Sub mnuDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDisconnect.Click
 
        serialPort.Close()
        MenuItem1.Enabled = True  '---Connect GPS---
        MenuItem3.Enabled = False '---Disconnect---
 
    End Sub
End Class

Im Using VB.net 2003 Smart Device Application