var är felet?

kan någon hjälpa mig att hitta felet.. följande felmeddelande kommer:

Typblandningsfel i villkorsuttryck

Dim antal As Integer = cmd.ExecuteScalar()

klagar den på.. försökt kolla av med db:n om jag angett fel i sql satsen, och vad jag ser är det rätt
i db attributen följande:

sortNr = tal
orderNr = text
datum = datum
antal = tal

 Function antalet(ByVal sortnr As Integer)

        'Skapar anslutning (anropar fran web.config)
        Dim strConn As String = GetstrConnection()
        Dim myConn As New OleDbConnection(strConn)

        Dim strsql As String = "SELECT Count(sortNr) AS Uttryck FROM kundvagn WHERE OrderNr = '" & Session("OrderNumber") & "' AND sortNr =  ' & sortnr & '"
        Dim myCommand As New OleDbCommand(strsql, myConn)

        Dim cmd As OleDbCommand = New OleDbCommand()
        cmd.CommandType = CommandType.Text
        cmd.Connection = myConn
        cmd.CommandText = strsql

        myConn.Open()
        Dim antal As Integer = cmd.ExecuteScalar()
        myConn.Close()

        Return antal

    End Function

    Sub AddToCart(ByVal Src As Object, ByVal Args As CommandEventArgs)
        Dim sortNr As Integer
        sortNr = CInt(Args.CommandName)

        If Session("OrderNumber") = "" Then
            Randomize()
            Session("OrderNumber") = (Int((9999999 - 1111111 + 1) * Rnd() + 1111111)).ToString()
        End If

        If antalet(sortNr) = 0 Then

            Response.Write("antalet= 0")

            Dim myconn As OleDbConnection = New OleDbConnection(GetstrConnection)
            myconn.Open()
            Dim strsql As String = "INSERT INTO Kundvagn (OrderNr, OrderDatum, SortNr, antal) VALUES"
            strsql = strsql + " ( '" & Session("OrderNumber") & "', '" & Today & "',  ' & sortNr & ', 1)"

            Dim myCommand As OleDbCommand = New OleDbCommand(strsql, myconn)
            myCommand = New OleDbCommand(strsql, myconn)
            myCommand.ExecuteNonQuery()
            myconn.Close()

        End If
        Response.Write("nu så")

    End Sub