dim param as sqlparamter =new sqlparamter("@参数",类型-sqldbtype.int)
param.values=值
sqlcommand. .Parameters.Add(param)例子:
  Dim cmdSql As New SqlCommand()    cmdSql.Connection = New SqlConnection(SysConfig.ConnectionString())
    cmdSql.CommandType = CommandType.StoredProcedure
    cmdSql.CommandText = "ProgramSelect_ClientTypeID_CurrentPrice"
    Dim param As SqlParameter = New SqlParameter("@PROGRAM_NAME", SqlDbType.NVarChar, 255)
    param.Value = strProgName
    cmdSql.Parameters.Add(param)