Parameterized query throws error

See more:

VB

ASP.NET

DB2

AS400

Here is my code. I want to use parameters to pass the values to my queries.

Public Shared Function FillStates(ByVal strState As String) As DataSet
        Dim ds As New DataSet
        Dim da As New iDB2DataAdapter
        Dim cn As iDB2Connection = CreateConnection()
        Try
            If strState.Length <= 0 Then
                Dim cm As New iDB2Command("SELECT * FROM DEVSUSH.CLSTATES", cn)
                da.SelectCommand = cm
                da.Fill(ds)
            Else
                Dim cm As New iDB2Command("SELECT * FROM DEVSUSH.CLSTATES Where STCODE='@strState", cn)
                cm.Parameters.Add("@strState", iDB2DbType.iDB2VarChar).Value = strState

                da.SelectCommand = cm
                da.Fill(ds)
            End If


        Catch ex As Exception
            LogError.LogErrorIntoTextFile(ex, "FillStates()")
        Finally
            cn.Close()
        End Try
        Return ds
    End Function

I get an error saying

The SQL statement text is not valid.

Format exception.

Could someone help me with this?