Jag försöker kontrollera vilket av strCard1Value och strCard2Value som har högst värde...
Dom kan ha vilket som helst av följande värden:
2,3,4,5,6,7,8,9,t,j,q,k,a

Jag måste ta reda på vilket av dom som har det högsta värdet, för att sedan kunna skriva ut rätt sqlfråga...

Problemet är att när jag kör detta så klagar den på hur jag har deklarerat tmpCard1 och tmpCard2...

Hur ska man göra?

            Dim tmpCard1 As Integer = strCard1Value
            Dim tmpCard2 As Integer = strCard2Value
            Select Case tmpCard1
                Case 2
                    tmpCard1 = 2
                Case 3
                    tmpCard1 = 3
                Case 4
                    tmpCard1 = 4
                Case 5
                    tmpCard1 = 5
                Case 6
                    tmpCard1 = 6
                Case 7
                    tmpCard1 = 7
                Case 8
                    tmpCard1 = 8
                Case 9
                    tmpCard1 = 9
                Case t
                    tmpCard1 = 10
                Case j
                    tmpCard1 = 11
                Case q
                    tmpCard1 = 12
                Case k
                    tmpCard1 = 13
                Case a
                    tmpCard1 = 14
            End Select

            Select Case tmpCard2
                Case 2
                    tmpCard2 = 2
                Case 3
                    tmpCard2 = 3
                Case 4
                    tmpCard2 = 4
                Case 5
                    tmpCard2 = 5
                Case 6
                    tmpCard2 = 6
                Case 7
                    tmpCard2 = 7
                Case 8
                    tmpCard2 = 8
                Case 9
                    tmpCard2 = 9
                Case t
                    tmpCard2 = 10
                Case j
                    tmpCard2 = 11
                Case q
                    tmpCard2 = 12
                Case k
                    tmpCard2 = 13
                Case a
                    tmpCard2 = 14
            End Select
            If tmpCard1 > tmpCard2 Then
                strCard = strCard1Value & strCard2Value & strSuite
            Else
                strCard = strCard2Value & strCard1Value & strSuite
            End If

<code=vb>
Const Faces As String = "23456789tjqka"
If instr(1, Faces, strCard1Value) > instr(1, Faces, strCard2Value) Then
strCard = strCard1Value & strCard2Value & strSuite
Else
strCard = strCard2Value & strCard1Value & strSuite
End If
</code>

Jag tackar och bockar!